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ABSTRACT 


THE poe OY DUAL PORT LOGIC PERFORMS A SERIES OF TESTS WHICH 
VERIFY THAT THE DUAL PORT OPTION IS FUNCTIONING PROPERLY. 


STTMGERS EGC YE RBLACS GAP HPCT SII APUS ENBAICE ° 
BeFE A TEBE PERE endl Be BOPSE DALE NPE hf 


THIS PROGRAM WILL TEST RKO6/RKO7 DRIVES WITHOUT OPERATOR INPUTS 


REQUIREMENTS 
HARDWARE 
THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE DISK DIAGNOSTIC: 


POP=11 
ONS nek oUgLETYPE 

Roe bn gEuS 5 GONTROLE ER _(RKbI1) 
FORMATTED DISKPACKS 


PRELIMINARY TESTING & PROGRAMS 


1. THE RK611 DISKLESS CONTROLLER DIAGNOSTICS (ALL PARTS) SHOULD 
FIRST RUN SUCCESSFULLY ON BOTH PORTS. 


2. DRIVE DIAGNOSTICS (ALL PARTS) SHOULD FIRST RUN 
a ces ULLY. 


3. THE RK611 FUNCTIONAL CONTROLLER DIAGNOSTIC SHOULD FIRST 
RUN SUCESSFULLY. 


RESTRICTIONS & OPERATOR ACTION 
BaeF°HSP*E.MOR Rt EEPERSIES" ONT "BER BSR bolt, 8 


pe. ies Fen ne ors IS DAISY CHAINED TO BOTH PORTS OF 
LING SW iL PORT ORAS, 


GROUNDS. BIT "9.06 THE UNT MONIT T SELECT LINES GOING 70 THE PORT 


THE EFFECT OF THIS IS THAT BIT O UNIT SELECT IS COMPLEMENTED 
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ON PORT B AND M3 DRIVE _APPEARS AS 2 SEPARATE UN 
EACH PORT OF THE RKO& WILL RESPOND TO A 


TS TO THE 
RK £- IF 
DRIVE ADDRESS. 


I 
DIFFERENT 


HE ADDRESS OF EACH PORT 
THIS RERaRY. THE Res hier 
UNIT SELECT PLUGS USED 

SS,_& PORT 
RESS DEVELOPED BY’ THE SWITCH). 


BECAUSE OF ig ' ReOvE CONSIDERATIONS, A MAXIMUM OF 4 DRIVES CAN 
BE TESTED BY THIS PROGRAM, WHICH WILL ’SEE’ 8 DRIVES. 


ANY OTHER DRI SYSTEM et 
ADDRESS IN CO Prey ut HE rer = 
DESELECTED, BOTH PORTS SWITCHED 


A FURTHER REQUI TIS T YSTEM MUST HAVE EITHER A KW11-P 
i rig NETTNER fs 6, 8TH, AN a  pteatnaes WILL BE TYPED 


WILL DEPEND ON THE pare ADDRESS. FOR 
ION_IS_ MADE THAT ONLY EVEN NUMBERED 
N aT WAY PORT ’A’ WILL RESPOND TO 


L 
I 
* WILL RESPOND TO ADDRESS+1 (THE ADD- 


ON 
’B 
CH 


He Test A ADDRESSES MUST BE 


PROGRAM WILL Sune TO THE END 0 
PROGRAM CONSIDERATIONS 


PDP-11 FAMILY COMPATIBILITY 


THIS PROGRAM CAN BE USED BY THE POP-11704,05, 10,20, 
34,35,40,45,50,55 & 70. 


A Is COMPATOOLE UIT WITH ie Le Te TRUE TION SET Ane can TEST 


E RKO& ONL DRIVE R FOR THE 
DESIGNED TO BE DIAGNOSTICALLY COMPATABLE WITH THE RK611. 


XXDP 

THIS PROGRAM SHOULD NOT BE CHAINED BY XXDP. 

CHAIN MODE OPERATION (MONITOR) 

BY DEFINITION, ANY PROGRAM THAT REQUIRES OPERATOR INTERVENTION 
SHOULD NOT BE’ CHAINED. 


IN THIS CASE, OPERATOR INTERVEN LON 


REQ’D TO ENABLE THE 
DUAL. PORT TEST SWITCH & DAISY CHA 


Is 
NING BOTH PORTS TO THE SAME 
DUMP MODE OPERATION (MANUAL ) 


1. INPUT DIALOGUE IF STARTED FROM 220. 
2. IF THE LOADING MEDIUM ON DRIVE O IS AN RKOG, IT WILL BE 
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TESTED. THE OPERATOR IS F 
THE PACK_ON DRIVE O WITH A 
WHEN DONE. 


IRST GIVEN A MESSAGE TO REPLACE 
SCRATCH PACK & TYPE <CR> 


ACT/APT 

THIS PROGRAM IS ACT COMPATIBLE. 

HOWEVER, IT SHOULD BE RUN ONLY IN DUMP MODE. 
AUTOMATIC MODE (MONITOR) 


BY DEFINITION ANY PROGRAM THAT REQUIRES OPERATOR INTERVENTION 
SHOULD NOT BE RUN IN THE AUTO MODE. 


DUMP MODE (MANUAL): INPUT DIALOGUE IF STARTED FROM 220. 


APT ETABLE DEFINITIONS 


THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING APT jk La ges adh 
TABLE (ETABLE) ENTRIES. VIA RUNNING THE APT UTILITY PROGRAM “TSP” 


1. SOFTWARE ENVIRONMENT: 
1 IF APT SCRIPT MODE 
=O IF STANDALONE MODE 


é. eiptT 7 = MODE : BYTE 


Boeken #21NG 
es 


BIT & = TQ APT IF SCRIPT MODE 
= 
eek Ric ote DuTPUT © 
= 
BITS 4-0" ROT on63 sot 
3. SUITCH 1 (SOFT SWITCH REGISTER) 
IF ENVIRONMENT BIT 7 (SIZING BIT) IS SET THE SOFTWARE 
SWITCH REGISTER W kot Bee Ne ee oF THE HARDWARE CONSOLE 
SWITCH REGISTER. OF WHICH ONE IS USED, ALL BITS 
DEFINED IN SECTTONS 4-4 (SWITCH REGISTER OPTIONS) MAY USED 
WHEN RUNNING. I n STANDALONE MODE. 
IN APT SCRIPT MODE, HOWEVER, BIT 14 (LOOP ON TEST) MUST ALWAYS 
BE SET TO 0. 


4. SWITCH § (USER SWITCH REGISTER) 
NOT USE 


S. CPU OPTIONS: 
NOT USED 


6. MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES 
NOT USED 


SEQ o00s 
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258 7. INTERRUPT VECTOR 1 
e583 USED WHEN ENVIRONMENT MODE BIT 7=1. DEFAULT = 210 

261 8. BUS PRIORITY 

ebe USED WHEN ENVIRONMENT MODE BIT 7=1. DEFAULT = S 

264 9. INTERRUFT VECTOR 2: 

ees NOT USED 

267 10. BUS PR PRIORITY 2: 

268 

269 

270 11. BASE ADDRESS: 

a USED WHEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT = 177440 
273 12. DEVICE MAP: 

274 USED WHEN ENVIRONMENT MODE BIT 1. EACH BIT SET TO 
275 1 IN BITS O-7 WILL SELECT THE CORRESPONDING DRIVE TO BE 
ere ESTED. BITS 8-15 ARE NOT USED. 

278 NOTE: IN THIS PROGRAM, ONLY EVEN NUMBERED DRIVES CAN BE 
e273 TESTED (0,2,4,6) 

281 13. CONTROLLER DESCRIPTORS: 

e8e NOT USED. 

284 14. DRIVE DESCRIPTOR CODES (IN WORDS): 

285 NOT USED 

286 

287 
288 3.4 MEMORY MANAGEMENT 
220 MEMORY MANAGEMENT IS NOT USED. 

292 
633 3.5 PARITY CHECK ENABLED 

295 

296 IF THE MEMORY PARITY CHECK OPTION IS AVAILABLE ON THE SYSTEM, 
237 THE PROGRAM WILL RUN WITH MEMORY CHECK ENABLED. 
239 
300 3.6 BAD SECTOR 
302 THE PROGRAM WILL COMPARE DATA ERRORS | WITH THE BAD SECTOR 
303 INFORMATION CONTAINED ON CYLINDER 4 HEAD 2. PRINTOUTS 
303 OF DATA ERRORS DUE TO BAD CEO O ES tAReKe WILL BE MASKED OUT. 
306 

O7 3.7 EXECUTION TIME 

3 THE EXECUTION TIME IS APPROX. 2.5 MIN. BASED ON THE POP 11/50. 


10 
11 
is 3.8 FAULT ISOLATION 
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TO BE DETERMINED. 


ERROR CORRECTION AND FAILURE RATE ANALYSIS 

THIS PROGRAM WILL NOT DO ERROR CORRECTION OR FAILURE RATE 
ANALYSIS. 

DEFAULT UNIBUS ADDRESSES & VECTORS 

THE FOLLOWING IS A LIST OF ALL DEFAULT ADDRESSES & 


VECTORS OF ALL HARDWARE TO BE USED & THEIR MEMORY 
ADDRESSES WHERE THEY CAN BE CHANGED. 


LOCATION DEFAULT CONTENTS 

STE OT Teer fat ee 
Saree etenteraes bs oo 
P-CLOCK K Ser "BUFFER 1352 17254 
K READ BUF 1324 172544 

r i RE R 13c8 io © 
Se Wien = i 

KB STA 1144 177560 
TTY K FER” 1138 177562 
TTY PRINTER STATUS REG 115 177564 
TTY PRINTER BUFFER 11Se 177566 


OPERATING PROCEDURE & CONTROL FUNCTIONS 
PROGRAM LOADING 


THE PROGRAM CAN BE LOADED FROM_ PAPER TAPE USING STANDARD 
ERO CE DURE FOR a E LOADER TAPES; OR FROM ANY MEDIA 
SUPPO BY XX 


LOAD THE STARTING ADDRESS (SEE SEC 4.2). 


SET SWITCH REGISTERS AS DESIRED (SEE SEC 4.3). 


INSTALL CALBE(S) & SET DRIVES TO BE TESTED IN THE ’LOAD’ CONDITION & WITH 
BOTH_PORTS TESTES Fost & WRITE LOCK DISABLED. ORIVES 

NOT TO - pus T Have Bort PORTS OF MELES TER 

LSO, THE DUAL PORT TEST SWITCH ON THE DUAL PORT MODULE 


MUST’ BE ENABLED 


NOTE: THE DRIVE WILL NOT RESPOND TO THE ’START SPINDLE’ 
COMMAND IF THE RUN/STOP SWITCH IS IN THE *STOP’ 
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POSITION. 
PRESS ’START’ 


THE PROGRAM _ IDENTIFY ITSELF ANDO WILL BEGIN 
DIALOGUE te hy THE OPERATOR TO DETERMINE DRIVES 10 BE TESTED 


(SEE SEC 4.5). 

GINS TESTING ONLY THOSE DRIVES SPECIFIED BY 
T NPUT DIALOGUE. IF_A SPECIFIED DRIVE CANNOT BE FOUND BY 
THE PROGRAM IT wo FLAGGED AS AN sa THAT THE DRIVE 
WAS NOT AVAILABLE. THEN BEGINNING WI H. iy * ae wee 
DRIVE QND PROCEEDING IN SEQUENTIAL ORDER VALID DRIVES 
WILL BE TESTED. ONE PASS THROUGH THE Teét's SEQUENCE WIL LL BE 

PER-ORMED ON EACH DRIVE BEFORE MOVING TO THE text ORIVE 

IN SEQUENCE. THE DRIVE TO BE TESTED WILL BE TYPED AT THE 
BEGINNING OF EACH PASS. "END OF PASS” WILL BE TYPED AFTER 
TESTING ALL DRIVES. 


STARTING LOCATIONS 


LOCATION 200 - STARTING ADDRESS TO DEFAULT THE BUSS 
ADDRESS & THE CONTROLLER INTERRUPT VECTOR 
SARI TION’ L DRIVES IN THE *DRIVE PRESENT’ 


NOTE: THE DRIVE PRESENT CONDITION IS: 
A. HEADS MANUALLY LOADED 
B. BOTH PORTS SELECTED 
C. WRITE LOCK i D 
D. DRIVE READY INDICATOR ON 
LOCATION 220 - STARTING ADDRESS TO INPUT TESTING PARAMETERS 
VIA_THE INPUT DIALOGUE. BUSS ADDRESS & 


CONT. INTERRUPT VECTOR INPUTTED ONLY ON 
1ST PASS. 


IMPORTANT: FOR VARIATIONS OF THE ABOVE SEE XXDP, ACT/APT 
CONSIDERATIONS IN SECTIONS 3.2 & 3.3. 
THE PROGRAM WILL DETERMINE WHETHER THE DRIVE 
IS AN RKO&/RKO? WITHOUT OPERATOR INPUTS. 

SWITCH REGISTER 

THE SWITCHES ARE USED TO PROVIDE CONTROL FUNCTIONS. 

SWITCH FUNCTION 
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15 HALT ON ERROR 

14 LOOP ON TEST 

13 INHIBIT ERROR TYPEOUT 

le BYPASS DRIVE AFTER 20 ERRORS 

11 INHIBIT IT — 

10 BELL ON ERR 

9 LOOP ON GBRO 

8 LOOP ON agr IN SW<07:00> 
SW< 15> 


THE PROGRAM HALTS ON ENCOUNTERING AN as AFTER TYPING OUT 
THE ERROR MESSAGE AND PERTINENT INFORM 
PRESSING “CONTINUE” CONTINUES OPERATION OF THE PROGRAM. 


SW< 14> 


THE PROGRAM LOOPS ON THE TEST THAT IS BEING EXECUTED WHEN 
i eae. IS PUT ON. THIS SWITCH IS NORMALLY USED ALONG 


SW< 13> 

THIS SWITCH INHIBITS 
LOOPING ON TEST (SWI 
WITH SW<13>SET, SW<1 


OR LOOPING ON ERROR (SW9) 


ALL ERROR MESSAGES. NORMALLY USED WHEN 
> SHOULD NOT BE SET : 


y 
Ss 
SW< 12> 


THIS SWITCH BYPASSES A GIVEN DRIVE AFTER 20 ERRORS HAVE 
BEEN DETECTED. 


SW< 11> 


EACH TEST WILL BE EXECUTED ONLY ONCE. NORMALLY are THE 
FIRST PASS, EACH SUBTEST IS ITERATED A Ne” OF TIMES 
(USUALLY 50, S IN SOME CASES). SETTING T mse. SWITCH INHIBITS 


ITERATIONS, SO THAT: QUICK PASSES CAN BE M 


SW< 10> 


RINGS A BELL ON ERROR. USEFUL WHEN ERROR TYPEOUT IS INHIBITED. 


SW<09> 
THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE LOOP FOR 


SEQ 0009 
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ERRORS. IF THE PROGRAM DETECTS AN ERROR, IT WILL LOOP BACK 
TO THE BEGINNING OF TEST. 


SW<08> 


EST (AS PER 
THUS IF 

D BE 

G & LOOPING 
XECUTED. 


E UL 
Ap Su AND SUBSEQUEN 


mM. 


*SOFTWARE’ SWITCH REGISTER 


44 pHe pnw & BEING RUN _ON A SWITCHLESS PROCESSOR 

E. HORDUARE 11734) THE PROGRAM pa Ge ee THAT 

For} Ue REGISTER IS_NOT PRESENT AND WILL USE 
MF SOF SWITCH REGISTER. THE "Sot Tae SWITCH 

REGISTER R15 LOCA LOCATED at LOCAT FON Ave 66) e p TH SETTINGS 
OF * SWIT OUGH_A 
KEYBOARD ROUTINE WHICH 13 CALLED BY YPING A "CONTROL G’. 
T ie. "CONTROL G’ AT_ANY T 

A _HIGHER Naiute ae 


AN _RKO& INTE 
ENTERED _AS AN OCTAL NUMBER IN RESPONSE TO THE PROMPT 
FROM THE SWITCH ENTRY ROUTINE: 


SWR = NNNNNN NEW = 
EACH T ME SWITCH SETTING ENTER D. THE ENTIRE SWITCH 


REGior ae OE ENTERS SO ROL Ne gence On ARE ; er 


GSeD. TO PRORRECT TYPING ERRORS DURING SHY TCH ERTRY. 


ON EGiSTen ITCH REGISTERS THE 
*S0i OF THARE® PUSULTCH Re fegl TER MAY ust ney Pr IF tHE PROGRAM 


FINDS ALL 1 
REGISTER REFERENCES AIL Bee 10 UT HE *SOFTWARE’ REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 


INPUT DIALOGUE 
THE DIALOGUE WILL BE DONE JNTEROC TIVELY. THE PROGRAM wi 


REQUEST A PARAMETER BY CONSOLE TYPEOQUT. THE PARAMETER M 
THEN Be ENTERED ° tak © tne BELOW OR 


ALLOWED TO DEFAULT 
Ue aent<bb oF ILLEGAL RESPONSES WILL 


BY A CARRIAGE RETU 
BE ECHOED BACK FOLLOWED BY ”?” PROPER RESPONSE MAY 


THEN BE ENTERED. 
IMPORTANT: FOR VARIATIONS OF THE ABOVE, SEE XXDP, ACT/APT 
CONSIDERATIONS IN SECTIONS 3.2 & 3.4. 


SEQ 0010 


Pil 03-JAN-78 08:4 


ceneaee RK611 OU PORT LGC HH 


MACY11 30A( 1052) 


4.5.1 


4.5.2 


4.5.3 


4.5.4 


O03-JAN-78 08:56 PAGE 11 


DRIVE SELECTION 
THE REQUEST WILL BE: 
DRIVES TO BE TESTED: 


THE DEFAULT RESPONSE iS CARRIAGE RETURN TO TEST ALL DRIVES 
IN THE ’DRIVE PRESENT’ CONDITION. 


THE OPERATOR CAN ALSO TYPE IN THE SPECIFIC DRIVE NUMBERS 
eT idles SEPARATED BY COMMAS & TERMINATED BY A CARRIAGE 
E.G. ORIVES TO BE TESTED (EVEN NOS. ONLY): O,4 


NOTES: 1. FOR VARIATIONS OF THE ABOVE SEE XxOP, ACT/APT 
CONSIDERATIONS IN SECTIONS 3.2 


2. SEE ’RESTRICTIONS & OPERATOR ACTION’ IN SECTION 2.3. 


BUS ADDRESS 
THE REQUEST WILL BE: 

TYPE IN BUSS ADDRESS IF NOT 177440 
THE DEFAULT IS A CARRIAGE RETURN 


CONTROLLER INTERRUPT VECTOR 
THE REQUEST WILL BE: 
TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210 


THE DEFAULT IS A CARRIAGE RETURN. 


EXAMPLE OF PROGRAM DIALOGUE 
THE EXAMPLE S FOR A RAM STARTED AT ADDRESS eco. 
6 +r R SB on E UND 


ALL OPERA ES AR RLINED. P 
UNIBUS RKO&-RKO7 DUAL PORT DRIVE DIAGNOSTIC 
CZR6GBO 


DRIVES TO BE TESTED: 0,4<CR> 


TYPE IN BUSS ADDRESS IF NOT 177440 <CR> 


SEQ 0011 
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TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210 <CR> 


WILL TEST DRIVES: 
§ 

DRIVE 0 

(THE REST IS IDENTICAL TO THE EXAMPLE SHOWN IN 4.6 BELOW) 


PROGRAM EXAMPLE 


THE FOLLOWING IS AN EXAMPLE OF A PROGRAM STARTED AT THE 
DEFAULT ADDRESS (200) & WITH 2 DRIVES ON THE LINE. 


UNIBUS RKO&-RKO7 DUAL PORT DRIVE DIAGNOSTIC 
CZR6GBO 

WILL TEST DRIVES: 

§ 

DRIVE O 


DRIVE SERIAL NO. AAA 
CARTRIDGE SERIAL NO. BBB 


DRIVE 4 


DRIVE SERIAL NO. CCC 
CARTRIDGE SERIAL NO. DDD 


END PASS #1 


aL. TEST DRIVES: 
4 
DRIVE 0 


DRIVE 4 
END PASS # 2 
(ETC) 


THE ABOVE ASSUMES NO ERRORS DETECTED. 
THE NUMBER OF PASSES IS DETERMINED BY ACT/APT/XXDP 


1. FOR VARIATIONS OF THE ABOVE, SEE XXDP, ACT/APT 
CONSIDERATIONS IN SECTIONS 3.2 & 3.3. 


SEQ 0012 
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2. SEE ’RESTRICTIONS & OPERATOR ACTION’ IN SECTION 2.3. 


HALTING THE PROGRAM 

THE PROGRAM PROVIDES A METHOD OF HALTING ITSELF SUCH THAT 
THE CARTRIDGE AND/OR DRIVE IS NOT LEFT IN ON UNDETERMINED 
STATE; IE: HEADS UNLOADED OR INVALID FORMAT. 

TO PROPERLY HALT, TYPE CONTROL-C (tC) ON THE CONSOLE. 


IF HEADS ARE LOADED, THE PROGRAM WILL: 


1. ECHO *C 

2. Mag 3 "ep HAL. TED™ 

3. HALT THE PROGR 

IF HEADS ARE NOT LOADED, THE PROGRAM WILL: 

1. ECHO ¢C 

2. TYPE ’HALT PENDING, PLEASE WAIT’ 

3. WILL LORD HEADS 

4 ig 3 *CPU_ HALTED’ 

S THE PROGRAM 

NOTES: 

1. OPERATING THE *CONTINUE’ SWITCH ON THE CPU CONSOLE WILL RETUR 
PROGRAM TO TEST 1 WHERE TESTING WILL BEGIN WITH THE 1°ST DRI 


DUAL PORT DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION 
GENERAL | 
A. BASIC CONTROLLER TESTS, SIZING & SETUP 
THESE TESTS DO BASIC CONTROLLER REGISTER REFERENCE TESTS, 
CHECKS OPERATOR INPUTS AGAINST DRIVES ON THE LINE OR DE-" 
FAULTS TO TEST ALL er IVES SEEN ON THE LINE WITHIN THE 
RES RICTIONS. DESCRIBE N SECTION 2.3. CHECKS ARE MADE ON 
HE EXISTENCE OF EITHER AN L OR P CLOCK. 
B. UAL PORT TESTS 
THESE TESTS VERIFY THE ABILITY OF THE DRIVE TO OPERATE 
IN THE DUAL PORT MODE. RELEASE, TIMEOUT & PROPER INTER- 
ACTION BETHEEN THE PORTS ARE VERIFIED 
C. METHOD TO DETERMINE THAT THE DRIVE IS IN NEUTRAL OR SEIZED. 


THE PROGRAM DOES A *SELECT DRIVE’ COMMAND TO PORT ’A’. 


SEQ 0013 


N THE 
VE AGAIN. 


IF 
MESSAGE AO RETURNS WITH THE ’DRIVE 5 A eal BIT NOT SET, 


IT ASSUMES PORT ’B’ HAS SEIZED THE DRIV 


—_—— 4 
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763 ae porate alae 
761 ONLY IF T sera a WAS Avsut'} br MDS OR UFE SET OR BOTH 


oB8 IF MESSAGE AO RETURNS WITH THE 'ORIVE AVAILABLE’ BIT SET, 
708 IT ASSUMES THE DRIVE WAS IN NEUTRAL OR ALREADY SEIZED BY’ 
209 PORT ’A’. 
7 AFTER A TIMEOUT OF 1 SECOND BY PORT ’A’, ASSUMING NO FURTHER 
at COMMANDS, THE DRIVE SHOULD BECOME AVAILABLE TO PORT ’B’. 
714 THERE IS Ne § PEC FIC METHOD TO VERIFY THE DRIVE IS IN NEUTRAL 
Sie BECAU DOING A SELEC IVE COMMAND Bi] CHECK FOR 
716 NEUTRAL oe 2ES THE DRIVE & TAKES IT OUT OF 
| 518 ’DSC’ & ’ATTN’ DO NOT ASSERT AT THE END OF A TIMEOUT IF THERE 
720 IS NO PREVIOUS PORT REQUEST MADE. 
Bias THEY WILL ASSERT, HOWEVE A PORT REQUESTED WHILE SEIZED 
| 723 BY THE THER PORT & AY ERtou OR RELEASE OCCURS ON THE OTHER 
| 725 
726 5.2 TEST DESCRIPTIONS 
| 728 RRA RRRRRRRRRRRRRRRRARR RARE RRR RRRR RRR RERERARRKRRRAERAKRESHE 
| vee BASIC CONTROLLER TESTS, SIZING 8 SETUP 
| 330 rSETPETTSTTTTTTTT TTT CT OCTETS OTST TTT TTT TTT TT Titi tttititititi tt tt 
| 33e TEST 1 REFERENCE ALL CONTROLLER REGISTERS 
| oe TH S TEST oft PIES THAT L THE CONTROLLER REGISTERS 
| $3¢ ws Re Ne INABILITY TO BE ACCESSED WILL 
736 Reue H AN ERROR MESSAGE. 
737 ERROR afi ineey ii RESULT IN. N_ABORTING ALL OTHER 
738 Ano SURPING TO Ee 
oan 
| ca TEST 2 SIZE THE BUSS 
4 T Y_IF *DRIVE SELECTION’ $ DEFAULTED 
oR EYFScA*EY Rinftne'TR Malo’ RODE OA ACEO SAA Ont THE 
548 EVERY foe R panoa eB EXAATAED ABD ARO TF NG 
748 BRIV WILL BE TE 5 A sedaelS WILL BYPASS 
743 Test F THE ERROR Bhs’ a THE SL LT OF 
750 re OR : NG 3 OR BOTH NED & DRA RESET IN- 
751 BIcaT HE 158R 18 ACCESSED 
pee F CERR DUE TO DTYE, DRIVE WILL BE TESTED AS RKO7. 
2 4 TEST 3. VERIFY OPERATOR DRIVE SELECTIONS 
756 T IS ENTE LECTION IS NOT 
2 NBME Meath latte ek 
| 758 R ERO at ppoRe? Out 
| 
| 
| 
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762 & DRA RESET sieeke PORT). IF CERR IS A RESULT OF 
763 NED SNLY CKE ED AGAINST THE INPUTTED INFORMATION TO 
764 VERIFY It t rs Rot 

ges ERR DUE TO BAIVE WILL BE TESTED AS RKO7. 

767 

3b TEST 4 FING NEXT DRIVE TO BE TESTED 

770 THIS TEST FINDS THE NEXT DRIVE PRESENT & PUTS THAT 

77 T THE F WING Cte 35 T IVE TESTED IS 

223 THROUGHOUT, TH E OL. Su Is i 4 SUN 1R 

re 

777 KEKE LEGGE KLEE MEK RK SKK K KEKE KEKE EERE KEELER KS ELK KKK KKK HEE 

77 DUAL PORT TESTS 

he | KKKKRKEKLRKRERRRARRRRRRE RRR RRRRRRRRE RRR RKRRRRRKRKRRR ERR RRAKAKKHE 
781 TEST S TEST PORT ’A’ SEIZE & TIMEOUT 

783 VERIFY THAT THE DRIVE CAN BE SEIZED & THAT THE PORT 

7e4 TIMEOUT RELEASES THE ORIVE. 

786 A. SET VOLUME VALID FOR BOTH PORTS & DO A RECAL COMMAND 
788 B. A SELECT DRIVE COMMAND IS ISSUED THRU PORT ’A’. 

789 THE PROGRAM VERIFIES THE DRIVE HAS BEEN SEIZED BY ’DRIVE 
730 AVAILABLE’ SET. 

792 é. CT SUED THRU PORT 'B’ THE 

793 PROGRAN vERIFES THAT THAT “DRIVE A AVAILABLE" IS NOT SET 

734 & THAT CERR I 

238 D. FY THAT T FOR 8 REQUESTED THRU PORT ’B’, (MSG 
73 A3, 80-89 <feSSA ALWAYS RETURNS FROM PORT B 
798 T Ar "8 SE 


E. WAIT FOR THE PORT TIMEOUT TO OCCUR ON PORT ’A’ BY 
CONTI zchB 6 ORI | Bee ON PORT 8. AFTER 
ATTN-B c’D, A IVE SELECT COMMAND iS ISSUED 


803 THRU PORT BS “ORIVE AVA IPABLE™ IS CHECKED TO 


Bod BE SET IN 


MEASURE THE TION OF THE TIMEOUT & TYPE THE VALUE 
807 FOR THE FIRST PASS ONLY. 


F. VERIFY THAT ONLY PORT ’B’ GETS ’DSC’ & ’ATTN’. 


bg) Lo THE ORIVE CLEAR COMMAND CLEARS *DSC’ & ’ATTN’ 
* BUT DOES NO RELEASE THE DRIVE FROM PORT 'B’. 


BOUF 


TEST & TEST PORT °B’ SEIZE & TIMEOUT 
THE PREVIOUS TEST IS REPEATED FOR PORT °B’ 


DWOWOWONDDODOWDWOOD 
NOU SW O 
o 


— 9 bh bp pe pe pe 


771 SiN *SUNIT S SET TO COT IF DRIVE IS RKO7. 


a 
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TEST 7 


TEST 10 


TEST 11 


TEST 12 


TEST 13 


TEST 14 


PRINT DRIVE SERIAL NUMBER 
rire be READS & PRINTS ay DRIVE SERIAL # FROM MSG A3 


IN BCD ON THE 1’ST P ONL 
Abe Ase fT T ais THAT THE SERIAL # READ THRU BOTH PORTS 


TEST PORT 'A’ COMMAND SEIZE & ATTENTION 
VERIFY THE OPERATION OF ’DSC’ & ’ATTN’ BITS AFTER A COMMAND. 
A. ISSUE A SEEK COMMAND TO CYLINDER 10 THRU PORT 'A’. 


©. SSEILSFEAARE fel lnaRGveterB57™” SETS FOR PowT *n 


C. VERIFY ’ATTN’ REMAINS SET BEYOND TIMEOUT 

D. VERIFY A DRIVE CLEAR COMMAND RESETS 'DSC’ & ’ATTN’ 
& DOES NOT RELEASE THE DRIVE FROM PORT ’A’. 

TEST PORT °B’ COMMAND SEIZE & ATTENTION 

ie PREVIOUS TEST IS REPEATED FOR PORT ’B’ 

BUT THE SEEK IS TO CYLINDER O. 

TEST RESET PORT 'A’ ATTENTION BY DRIVE CLEAR COMMAND 


VERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF 
THE SEIZING T 


A. SET PORT’S ATTENTION BIT BY PERFORMING SEEK 
CSnMANDS FO CvLI ROER OD & ALLOWING TIMEOUTS. 


B. SEIZE THE DRIVE Ppa PORT 'A’ & ISSUE A DRIVE CLEAR COMMAND 
VERIFY THAT ’DSC’ & ‘ATTN’ FOR PORT °A’ HAVE BEEN CLEARED 


C. SEIZE THE ORIVE THRU PORT 'B’ & VERIFY ’DSC’ & ‘ATTN’ 
HAVE NOT CLEARED 


TEST RESET PORT ’B’ ATTENTION BY DRIVE CLEAR COMMAND 
THE PREVIOUS TEST IS REPEATED FOR PORT 'B’ 


TEST RELEASE, DRIVE SEIZED BY PORT ’A’ 
A. SEIZE THE DRIVE THRU PORT ‘A’ 


pe eS SS en 
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TEST 15 


TEST 16 


TEST 17 


TEST 20 


TEST 21 


TEST 22 


B. ISSUE A RELEASE USING RKCS2 THRU PORT ’A’ 

C. VERIFY PORT ’B’ CAN ACCESS THE onys IMMEDIATELY & 
THAT NEITHER PORT SEES ’DSC’ OR ’ATT 

TEST RELEASE, DRIVE SEIZED BY PORT ’B’ 

THE PREVIOUS TEST IS REPEATED FOR PORT ’B’ 


TEST RELEASE FROM PORT ’A’ WITH PORT ’B’ REQUESTING 
A. ne Proc IZES_ THE DRIVE & DO SEEK TO SELF COMMAND. 
éaRan “MERIFIES x. & PAT TN’ ON ON PORT ’A’ ONLY 

oN COMPLET 

B. PORT 'B’ TRIES TO ACCESS THE DRIVE. THE PROGRAM VERIFIES 
DRIVE NOT AVAILABLE 

C. A RELEASE BY PORT ’A’ IS 
pS AME Pare to | al 

D. VERIFY PORT ’A’ DSC’ & *ATTN’ REMAINS SET AFTER RELEASE 


E. THE PROGRAM ISSUES A DRIVE CLEAR COMMAND TO PORT ’B’ 
& VERIFIES ’OSC’ & ’ATTN’ RESETS. 


F. THE PROGRAM THEN yeni ES THAT PORT ’B’ DOES NOT SEE 
FURTHER Cm TPE ATT BT EQNS FROM WHAT WOULD HAVE BEEN 
NORMAL TIME ROM 


TEST RELEASE FROM PORT 'B’ WITH PORT ’A’ REQUESTING 
THE PREVIOUS TEST IS REPEATED FOR PORT ’B’ 


ISSUED. VERIFY PORT ’B’ CAN 
TELY & THAT DSC’ & ’ATTN’ 


TEST RELEASE FROM REQUESTING PORT °B’ INHIBITS ’ATTN’ 


A. PORT 'A’ SEIZES THE OR 
PORT *B’ & PORT A'S SEIZE, THE ORI IN, THAT, oROER 
THE PROG bu VERIF TES HAT erTHE DRIVE, 3 a’ *B’ ATTENTION 


o00oWw 


TEST RELEASE FROM REQUESTING PORT ’A’ INHIBITS ‘ATTN’ 
THE PREVIOUS TEST IS REPEATED FOR PORT 'B’ 


TEST RELEASE BY PORT °B’ WHEN SEIZED BY PORT °A’ 
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930 VERIFY THAT A RELEASE ISSUED BY ONE PORT IS NOT RECOGNIZED IF 
gh THE ORIVE IS SEIZED BY THE OTHER PORT 

30 A. SEIZE THE DRIVE THRU PORT ’A’. 

935 B. ISSUE A RELEASE THRU PORT ’B’ & VERIFY DRIVE STILL SEIZED 
936 BY PORT ’A’. 

= 

$30 TEST 23 TEST RELEASE BY PORT 'A’ WHEN SEIZED BY PORT ’B’ 

ra | THE PREVIOUS TEST IS REPEATED FOR PORT ’B’ 

a4 TEST 24 TEST COMMAND FOLLOWED BY IMMEDIATE RELEASE FROM PORT ’A’ 
345 A. ISSUE A SEEK COMMAND TO CYL 19 FROM PORT ’A’ & 

uP AN IMMEDIATE RELEASE TO PORT A 

948 B. yeriny THE DRIVE A AVA L fae TO PORT ’B’ 

oc5 & PORT ’B’ VES *ATTN 

951 C. _VERIFY PORT ’A’ DOES NOT RAISE ATTN WHEN THE SEEK IS 
9Se COMPLETED. 

9$3 

= 

328 TEST 2S COMMAND & IMMEDIATE RELEASE FROM PORT 'B’ 

958 THE PREVIOUS TEST IS REPEATED FOR PORT 'B’ 

SP6 BUT THE SEEK IS TO CYLINDER O. 

2 

3e4 TEST 26 TEST TIMEOUT RETRIGGER THRU PORT ’A’ 

ape VERIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED. 
ope A. PORT ’A’ SEIZES THE DRIVE 

353 B. THE PROGRAM WAITS SOOMS & RE-SEIZES THE DRIVE THRU PORT ’A’ 
971 C. PORT ’B’ ATTEMPTS TO SEIZE THE DRIVE & THE 

972 PROGRAM vents Tes tat FULL TIMEOUT TOOK PLACE 

973 FROM STEP 

974 

es 

p Lh TEST 27 TEST TIMEOUT RETRIGGER THRU PORT ’B’ 

an8 THE PREVIOUS TEST IS REPEATED FOR PORT ’B’ 

981 

255 TEST 30 TEST PORT ’A’ TIMER INHIBIT 

984 A. PORT ’A’ SEIZES THE DRIVE 


96S B. PORT ’B’ ATTEMPTS TO SEIZE THE DRIVE 


Nee 
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6 PORT FOR AS LONG AS THE RECAL IS IN PROGRESS & A 
tf RELEASE IS NOT ISSUED. 


A. ISSUE A RECAL COMMAND FROM THE LAST CYL THRU PORT 'A’ 
B. VERIFY PORT °B’ CANNOT SEIZE THE DRIVE UNTIL 


PORT 'A’ RECE } VES ATTN. 
THIS INSURES THE TIMERS WERE INHIBITED. 


furufururoforu 


Gin Leoror Od 


TEST 35 TEST RECAL COMMAND TIMER INHIBIT THRU PORT ’B’ 
THE PREVIOUS TEST IS REPEATED FOR PORT 'B’ 


986 C. PORT ’A’ RELEASES THE DRIVE 

pL D. PORT ’A’ ATTEMPTS TO GET THE DRIVE BACK. 

80 THE PROGRAM VERIFIES THAT PORT ’A’ CANNOT ACCESS 

$a THE DRIVE FOR APPROX 1 SEC 

993e 

393 

9394 

gap TEST 31 TEST PORT ’B’ TIMER INHIBIT 

$30 THE PREVIOUS TEST IS REPEATED FOR PORT ’B’ 

3393 

1900 TEST 32 TEST UNLOAD COMMAND TIMER INHIBIT THRU PORT ’A’ 

1002 VERIFY THAT THE UNLOAD COMMAND THRU A PORT, SEIZES THAT 
1003 PORT FOR AS LONG HAS HEADS ARE UNLOADED & RELEASE IS NOT 
Had ISSUED. 

1006 A. TSS6 AN ih at: OMMAND THRU PORT ’A’. 

1008 VERIFY DR UNL & ATTENTION IS SET. 

1009 B. DELAY FOR S SECONDS 8 VERIFY DRIVE 

init NOT AVAILABLE TO PORT ’B’ TO INSURE TIMERS INHIBITED. 
1012 Cc. Js A RELEASE FROM PORT ’A’. VERIFY DRIVE BECOMES 
Bi SGME EVEHEAN 

i i? D. LOAD HEADS FROM PORT 'B’ & VERIFY 'ATTN-B’ AT COMPLETION 
1017 

i is TEST 33 TEST UNLOAD COMMAND TIMER INHIBIT THRU PORT ’B’ 

t 0 THE PREVIOUS TEST IS REPEATED FOR PORT ’B’ 

1022 

t 2 TEST 34% TEST RECAL COMMAND TIMER INHIBIT THRU PORT ’A’ 

i es VERIFY THAT THE RECAL COMMAND THRU A PORT, SEIZES THAT 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

1 


DDNOOOOOOOO OOOO O OOOO 0O0000000 


£tWWW 
-OWON 


TEST 36 READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL #& 
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THIS TEST VERIFIES THAT CYL 632 (14S& FOR RKO7), TRACK 2 CAN BE READ. 
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1044 THIS AREA CONTAINS BAD SECTOR INFO WHICH IS WRITTEN BY 1 

1045S FACTORY DURING MANF. ALL BAD SECTOR INFO (BSE) WILL BE STORED 

in AT THIS TIME TO MASK FUTURE READ HEADER OR DATA ERROR PRINTOUTS. 

1048 SECTORS 0,2,4,6,8 CONTAIN IDENTICAL INFO FOR 22 SECTOR HARDWARE DETECTED 
ip3 SECTORS 10,12/14,16,18,20 CONTAIN IDENTICAL INFO FOR 22 SECTOR SOFTWARE 


IF BSE INFO CANNOT BE READ, OR IF AFTER READING THE BSE INFO 
IT IS DETERMINED THAT AN ALIGNMENT CARTRIDGE IS USED, 


oO 
ul 
i 


B. PORT ’B’ ae THE ORIVE & SEEKS TO THE LAST CYL 
& RELEASES DRIVE AFTER ’ATTN’ IS RECEIVED 
Ma? PROGRAM yeni AtR THA us ATTN 19 REC’D, 
PORT ’A’ SEES ’CONTROLLER ERROR’ & ’DRIVE NOT AVAILABLE’. 


C. THE ABOVE IS REPEATED FOR A PATTERN OF CONVERGING SEEKS 
TOWARD THE CENTER OF THE CARTRIDGE. 


D. THE PROGRAM VERIFIES TIPLE ATTENTIONS OR ERRORS 
DO NOT OCCUR AS A RESULT OF TIMING PROBLEMS. 


0.0000 00d 


we 


6.0 ERROR REPORTING 


1 
1be5 

1054 A MESSAGE WILL BE TYPED INDICATING THAT ALL 

1055 FUTURE FORMAT AND READ-WRITE TESTS WILL BE BYPASSED. 

1056 THIS IS DONE SO AS NOT TO DESTROY BSE INFO OR AN ALIGNMENT PACK BY WRITI 
1058 THE PACK SERIAL # IS TYPED IN OCTAL & FOR THE FIRST PASS ONLY. 
1060 

1061 TEST 37 DATA TESTS 

1063 VERIFY UNIQUE DATA CAN BE WRITTEN THRU EITHER PORT 8& READ 

1068 BACK CORRECTLY THRU BOTH PORTS. 

1066 A. ALL 1°S ARE WRITTEN THRU PORT ’A’ ON CYL_O, SECTOR O, 

1067 TRACK 0 & VERIFIED BY READING BACK THRU BOTH PORTS. 

1069 B. ALL 1°S ARE WRITTEN THRU PORT ’B’ ON CYL _10, SECTOR 0, 
1070 TRACK 0 & VERIFIED BY READING BACK THRU BOTH PORTS. 

1072 C. THE PROGRAM CHECKS THAT CYL 0 WAS NOT OVERWRITTEN 

i es BY READING & VERIFING ALL 0’S THRU PORT ’B’. 

1 ie TEST 40 ALTERNATING SEEK INTERACTION TEST 

1077 THIS TEST VERIFIES THAT T ARE NO TIMING INTERACTION PROBLEMS 
i 28 BETWEEN SEEKS a BOTH PORTS. 

1080 A. PORT 'A’ SEIZES THE DRIVE & SEEKS TO CYLINDER O & RELEASES 
1081 THE OR AFTER ATTN’ Ls RECEIVED. 

1082 THE PR RIFIE THA UNTIL ATTN IS REC’D, 

: 83 PORT ’B’ SEES ’CON ROLLER ERROR’ & 'DRIVE NOT AVAILABLE’. 
1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1 

1 

1 

1 

i 

1 


OONODOOOOOOVOVOO OOOO V0O0000000 


0000 
woono 


en 
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AD 
030144 
140144 
Beh 
040200 


7.0 


02 
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ERROR INTERPRETATION 


WHENEVER AN ERROR MESSAGE iS PRINTED OUT, AL 
AND OTHER DATA PERTAINI 0 THE ERROR AR 
MSG ACOO), MSG B(O1), RKER, RKBA...ETC, I 
CONTENTS OF THE CORRESPONDING REGISTERS A 


RY or SSAGE CONTAINS APC. THIS PC I 


BECAUSE OF PRACTICAL CONS 
NGF ADVI 


ICATES | 


s 
Dr 
rae 
é 


TO UP_ THE 
IND oe INFORMATION 
ITTLE DELIBERATION 
L BE CERTAINLY 


wn gaia 
EN WITH ERROR 


_ 
<2Ze Crm 
D 


I 
pecs ire 


NOTE 
NO ERROR LOGGING OR OPERATION HISTORY IS PROVIDED. 

ERROR PRINTOUT EXAMPLE: 
Me eeRe ao ERROR 
AFTER START SPINDLE CMD & FWD SET 

TEST NO. PC 

000014 016530 
EXPECT 


BO Al te Re Be B3 
rg 013704 0001 


100000_ 101744 o00001 
RKCS. RKASOF RKER RKDS RKDC 
0001 01 oo «oo0000 000000 


THE ABOVE EXAMPLE SHOWS EXPECTED & ACTUAL DATA FOR 
MESSAGE REGISTERS AO, BO, Al & Bl. 


MESSAGES A2, Be & B3 WILL BE TYPED OUT ONLY AS REQUIRED IF 


THE CYLINDER DIFFERENCE/OFFSET, CYLINDER ADDRESS & 
Heo? & SECTOR INFORMATION IS A VARIABLE PARAMETER OF THE 


DUAL PROCESSOR-DUAL CONTROLLER TESTING 


SEQ O0ee 


oO0 


N 
De ee ee ee eee be eter 
oo 


-Pll 


a a A NN rar 
COOrmuuU 
PO ODO VOUT LO Ow UP UTE Oro Loto ae ow 


DOWDMONINNIYYINNNNO OO 
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THIS PROGRAM AS DESCRIBED, TESTS THRU A SINGLE CPU & RK611 
IN A SYNCHRONOUS MANNER. 


Un an Ports c I.E.: DUAL CPU/DUAL RK611 
weTH BOTH TB Sone CONT ENDING’ FOR THE DRIVE ASYNCHRONOUSLY, 
THE FOLLOWING PROGRAMS SHOULD BE USED: 


CZR6M SUBSYSTEM VERIFICATION PART 1 TEST 22 
CZR6P PERFORMANCE EXERSICER 


EACH OF THE ABOVE PR REQUIRES A SPECIAL STARTING ADDRESS 
TO ENTER THE DUAL PORT TESTING MODE. 


TEST 22 IN THE suesrsren VERIFICATION penen CAN BE SET UP 

so ane ONE POR WRITER OF A SPECIFIED vale PATTERN 
OVER A SPECIFIED or ADS & CYLINDERS, WHILE THE 

OTHER PORT BECOMES THE READER. 

THE ROLES OF EACH PORT CAN THEN BE REVERSED THRU ANOTHER SETUP. 


pene 8 re re rere WAYS OF DYNAMICALLY TESTING DUAL 
THE OPERATOR IS URGED TO READ THE PROGRAM DOCUMENT. 


THE _P Maes PENCISE On OPERATI Fo a TO RANDOMLY 
> ALL oPOSSteL AL POR 
THIS PROGRAM L MOST SIMUL L ON-LINE. DUAL PORT OPERATION. 


ACTUAL 
THE OPERATOR Hee URGED TO READ. THe” PROGRAM DOC 
{[ END OF SPECIFICATION ] 


SEQ 0023 


02 
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; *#** PGM REV 030 ### 
; @9-SEP-77 PATCH ALL ERROR LOGS 


NLIST CND,MC,MD 
[ENABL ABS,AMA 
;DEFINE SYSMAC MACROS 


167400 S$SWR= 167400 ;DEFINE SWITCHES 15,14,13,11,10,9,8 
000001 STN= 1 ;SET FIRST TEST NO. "Tol 


. TITLE CZR6GBO RK611 ou. PORT LGC TST 
: COPYRIGHT (C) 1976, 1977 

:*DIGITAL EQUIPMENT CORP 

;M MAYNARD, MASS. 01754 


i SPROGRAM BY GARY PAPAZIAN 


ix 
;#THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
; ¥PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


BOVENLOV-OOOITUL WOODEN | 


POPUP UU Ne ee ee ee ee 


ee ee ee ee ee ee ee ee ee ee ee 


g10 - SBTTL OPERATIONAL SWITCH SETTINGS 
gig : SWITCH USE 

214 :% 1S HALT ON ERROR 

ste ‘; {3 tor on EER OR TYPEOQUTS 

sis t 13 Ag Oat ORE VE AFTER 20 ERRORS 
218 x 11 INHIBIT ITERATIONS 

219 + % 10 BELL ON ERROR 

220 * g LOOP ON ERROR 

eel $x 8 LOOP ON TEST IN SWR<7:0> 
223 

224 .SBTTL SUMMARY OF STARTING LOCATIONS 

2es ;% 

226 ;* 

227 x 200 DEFAULT PARAMETERS 

ees $x 220 INPUT PARAMETERS 

ee9 i 240 ODT11 





Re ee 
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1233 
18 001100 
1237 
Bs 
oe 
is note 
1e41 000015 
le4e 000200 
1243 177776 
| days 
a: 
1247 177570 
1248 177870 
Be 
i524 oo000 
| ics 000001 
ee: 
1255 000004 
1256 000005 
1257 000 
1eS8 000007 
1259 OOO0006 
t 54 000007 
lebe2 
1263 000 
| 1264 000040 
001 
1270 000340 
1271 
is 
2 
1274 4 
1275 020) 
1276 010000 
te 
iB 
le 0004 
1281 000200 
1282 000100 
ee BBS 
iess 090010 


1286 000004 
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BASIC DEFINITIONS 


. SBTTL 


BASIC DEFINITIONS 


pet ADDRESS OF THE STACK POINTER ### 1100 *## 


“pay 


GAT. ERROR — PEFINITEON OF ERROB CALL 


; ¥MISCELLANEOUS rope riee es” 


HT= 11 ZONTAL TAB 
te iE 
CRLF= 200 1 SORE F a CARRE (BETURN-LINE FEED 
PS= 177776 ?:PROCESSOR STATUS WORD 

SOU. 3yby rat REGIST 

IRG= 1555 3 + Rocha Mite PROT REauest REGISTER 
DSWR= 177570 WARE SWITCH R 
DDISP= 177570 + HARDWARE DISPLAY REGISTER 
; #GENERAL PURPOSE REGISTER IT 
RO= %0 R PRERAL Aone cte TER 
Ri= “4 ;GENERAL REGI TER 
R3= %, Heats Regt et R 
R4= “4 33 RAL REGIST 
RS= “8 $3 RAL & at R 
Rb= %b 33 RAL TER 
R7= “7 55 GE REGISTER 
SP= % STACK OINTER 
Pc= “7 :3PR OUNTER 
;*¥PRIORITY LEVEL DEFINITIONS 
PRO= 0 ; ;PRIORITY LEVEL O 
PR1= 40 *:PRIORITY LEVEL 1 
PRe= 1 :?PR OR TY LEVEL : 
PR3= 14 :?PR TY LEVEL 
PRi= 200 ? ;PRIOR hy LEVEL 4 
PR6= 84 H Baloal ty LEVEL 2 
PR7= 340 * PRIORITY LEVEL 7 

jx" SWITCH al wien DEFINITIONS 

Wi4= me 
SWi3= 20000 
SWi2= 10000 
Sig 200 

WOS= ; 5 
Swos= 400 
Swo7= 200 
SWOb= 100 
SwOoS= 40 
SWO4= 20 
SwO3= 10 
SWO2= 4 


SES 0025 
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1287 ooo002 SWOl= 2 
1288 000001 Swoo= 1 
1289 “EQUIV SWO9,SW9 
1290 “EQUIV SwOs; Swe 
1291 - EQUIV 7» SH? 
lege “EQUIV : 
129. [EQUIV SWOS; SWS 
1294 [EQUIV SWO4; SW4 
i5ae ‘Eauiy sos’ Sue 
1838 “EQUIV eioT ent 
1698 “EQUIV SWOO; SWO 
1300 :¥DATA BIT DEFINITIONS ‘81700 TO BITIS) 
1301 1000 BIT1S= 100000 
1302 040000 BIT14= 4000 
1303 020000 BIT13= 200 
1304 010000 BITl2= 10000 
1305 004000 BIT1i= 4000 
1306 002000 BIT10= 2000 
1307 001000 BITO9= 1000 
1308 000400 BITOB= 409 
ue = 
1393 eeytire Bt Toes 1 
1311 000040 BITOS= 40 
1312 000020 BITO4= 20 
1313 000010 IT03= 10 
1314 00004 BITOe= 4 
1315 ooo002 BITOl= 2 
1316 000001 BITOO= 1 
1317 -EQUIV BITO9,B1TS 
1318 [EQUIV B8ITO8;,BITS 
1329 “Eoutv BITDe;BITe 
135¢ -Eauty Bitpe’ Bits 
1322 “EQUIV BITOY;BITY 
1323 [EQUIV B1T03, 6113 ° 
tee EIY BRED ELT 
1358 “EQUIV Bt tbo’ BITO 
1328 -*BASIC “CPU” TRAP VECTOR ADDRESSES 
1329 ooo004 ERRVEC= 4 ;;TIME OUT AND OTHER ERRORS 
1330 000010 RESVEC= 10 tRESERVED AND ILLEGAL INSTRUCTIONS 
1331 000014 TBITVEC=14 Hd ta 
1332 000014 TRIVEC= 14 ?: TRACE TRAP 
1333 000014 BPTVEC= 14 j BREAKPOINT TRAP (BPT) 
1334 000020 OTVEC= 20 :: INPUT/OUTPUT TRAP (IOT) **SCOPEx* 
1335 000024 WRVEC= 24 HH 
1336 000030 EMTVEC= 30 *: EMULATOR TRAP (EMT) **ERROR** 
1337 000034 TRAPVEC=34 ?:"TRAP" TR 
1338 000060 TKVEC= 60 ::TTY KEYBOARD VECTOR 
133 000064 TPVEC= 64 :: TTY PRINTER VECTOR 
1340 oo0240 PIRQVEC=240 ::PROGRAM INTERRUPT REQUEST VECTOR 
1342 .SBTTL RKOG CONTROLLER REGISTER DEFINITION 
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1343 
1344 


£ 
uw 


ee 


g 


ul 


es 


wa ah a 


WWWWWWWWWWWWW 
ot PERERPRE RE A 


Ww 


BSONTnL 


WII GI WU) W UL) 


Cd ed ee el ed ed ed ed et ee et ete 
WWWWWW 
DN LO 

N Wror- 
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ee 


= 


NUIW = NUT 


= 


000027 
00003 


000040 
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8 PAGE 27 
RKO& CONTROLLER REGISTER DEFINITION 


-SBTTL 


SBASE=177440 


OT Le £Oe £MO 


= 32 


;CONTROL AND 


; WORD COUNT 


MA Nt 
3 MAIN 
ECC 


TAT 
G 


OsIT OTTTON INFORM 
ECC & PATTERN INFORMA 


US REGISTER 1 


CONTROL AND STATUS REGISTER 1 BITS (RKCS1:0) 
DRIVE COMMANDS 


AAA 
ee ONTO 


TA 
TA 


OF 
READ 


ITE CHECK 


T ORI 
ACKNOWLEDGE 
CLEAR 

SP 


VE (GE 


NABLE 
ADY 


BUS ADDRESS BIT 


i Sarkerreroflve't TYPE (O=RKO6, 1=RKO7) 


ns 
;SERCON 
;DRI 
CONTROLER 


Lae 


PAUP 
LEAR 


REGISTER 
STER 1 
at R 2@ (MESSAGE LINE A) 
TER 3 (MESSAGE LINE B) 
ATION 
TION 
T STATUS) 


DA 
ADER 
HEADER AND DATA 


18 


FORMAT (O=22 SECTOR 
OR DETECTED BY CONTROLLER 


CONTROL AND STATUS REGISTER 2 BITS (RKCS2: 10) 


OR ORIVE SELECT 


ION 
IDESELEGL OH RELEPSE OPIN, 


ON CODE 
IN BITS 0-2 
BI 


T 
;SUBSYSTEM CLEAR CONTROLLER AND ALL DRIVES 


SEQ 0027 


1=20 SECTOR) 


SRE BLSCAEIN OM BE ANP FEY se se0 o0ze 


18 i me Atte Ra 
1401 B0e 00 Ofe= BITS {UNIT FIELD ERROR 
140 501000 MDS= ‘BITS :MULTIPLE DRIVE SELECT 
140 vache hess opty I AORCERTSTENT MEORY 
nytiteet Nens OBE TIA NON XESTENT DRIVE 
scones ee Bie HEIR et tae” 
rata t= «Tie DATA LATE ERROR 
.SBTTL ERROR REGISTER BIT DEFINITION (RKER: 14) 
000001 IlF=  BITO ;ILLEGAL FUNCTION CODE 
Boo004 Rees OBITS : OFABLE FUNCTION 
000010 = BIT3 {DRIVE DETECTED SERCON PARITY ERROR 
pape Fare: its FORE, 
000100 ECH= pie Bas ane 
001000 BvRC= Bits ; CYL OVERFLOW ERROR 
era Ibge= BIT1O Bone SET ERROR! HEAO/CYL 
010000 OTe= 8BITle fa 
020000 OPI= IT13 Bey SEARCH) INCOMPLETE 
pitts BRINE obea? 


-SBTTL STATUS REGISTER BIT DEFINITION (RKDS: 12) 


DRA= BITO ;DRIVE AVAILABLE (CONTROLLER IS SET IF 
;___ THIS eiiy* RESET) 


So 
358 


Tb E  (O=RKO6, 1=RKO7) 

I 6TH 

A : cance 
TATUS Vet 

.SBTTL MAINTENANCE REGISTER 1 BIT DEFINITION (RKMR1:22) 


2 
5 
a 


FESRAS SONPRIOREO RIED PON Seals Grin coe S SB URE 
: 
st 


ee ee ee ee ae ae be ee he ae be he ee ee be Bn ee ae an ee ae ae eee ae ae ee Pe ae pe De ae ps Ps Pe Pe pe Ps bo be be 
peepee sein SEES ECECESCSCSCSCSC ESSE SSE CECE SES ES CSCC CLL 


6 
7 = 17 

Hue pe gsk etry iF Biscotti AS TY ON SERCON MESSAGE LINES 

4Yy9Q ps OMD= TS ¢ bf 

450 0001 MSP= BIT6 ; MAINT nies PULSE 

uel 990200 MIND= 117 > MAINT 

4 HO0400 MCLK= 8 *MAINT 

453 001000 MERD= ®B1T9 } MAINTENANC: CLOCK READ DATA 

454 002000 MEWD=  BITIO :MAINTENANCE ENCODED WRITE DATA 
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MAINTENANCE REGISTER 1 


PAGE 29 
1 BIT DEFINITION (RKMR1:22) SEQ 0029 


4 | ;P N N ADVANCE 
{dee nytatelere B&Bs Bitte {PRE COMPEN SATTON BELAY | 
1457 020000 ECCHs BIT13 care BEING READ OR WRITTEN 
1458 940000 WRTGA BITL4 if eats 
1453 100000 RDGa TES TiS ?READ GATE 
1461 .SBTTL DEFINITION GF DRIVE STATUS BYTE 00 MESSAGE A (RKMR2:34) 

1463 40 D.ORA= BITS ;ORIVE AVAILABLE 
1464 000100 [Wz IT i VOL VALID 
1465 0 “DROY= BIT READY 
1466 000400 -DD = 11g t ORIVE TYPE (O=RKO6, 1=RKO7) 
1468 B: Fe BIT io i DRIVE SF 
Nee Baap Beene BHT PNA a 
1471 020000 D.PIP= BiTts . I NG IN PROGRESS 
147¢ 040000 D:DSC= BITI4 :DRIVE STATUS CHANGE 
1c .SBTTL DEFINITION OF DRIVE STATUS BYTE 01 MESSAGE A (RKMR2:34) 
1476 0. SSP BITY ;SERVO SIG PRESENT 
14 000040 “HOHM= BITS : HOME 
1478 000100 D. BRHM= BITé : 
. = ; 
iie8 B:BRR0> TG lee 
esau Be Etta | 
s = 
ees pA. att Bo toi 
- = 
1485 0200 "RITZ T13 : RO 
148 Boo B-fincb= BETia en UNCOABING 
1488 .SBTTL DEFINITION OF DRIVE STATUS BYTE OO MESSAGE B (RKMR3: 36) 
1490 ‘ = BIT ; INVALID DISK ADDRESS ERROR: HEAD/CYL 
1491 1 i L = BIT 7AC_L 
1492 2 [FLT= T :DRI FAULT 
iuaa te - Eos Bits Paes FETED SERCON PARITY ERROR 
1495 B0 2000 ee BIT io sORRY IREORPLETE” 
as & s 3 
rt platelets B-bee. BtTis PMBATE LBSS 
1498 0200 D:DROT= BITI3 :DRIVE OFF TRACK 
1498 040000 D.UNS= BIT14 : E 
i Of SBTTL DEFINITION OF DRIVE STATUS BYTE O1 MESSAGE B (RKMR3: 36) 
1204 500040 BAERS BITS tk WRIT 
se . = 
ieee sate B-HaaR: BITE iE Sire mo™NG YRoKELST ERE 
e = 
1507 00 D.MHD= BITS MOL TIPLE. HEA SELECT 
15 001 D. XERR= : 3 IRIEL 
iS 002 ‘TIB= Tio ir ERROR 
1510 004000 D:PLO= BITII1 
| 
| 
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1511 010000 D.NMOV= BIT12 ;SEEK_AND_NO MOTION 
1512 020000 D:.LIMD= BIT13 ‘LIMIT DETECT SEEK 
1513 040000 D:SUNS= BITI4 :SERVO UNSAFE 
1615 .SBTTL COMMON MASKS AND OTHER BITS: MESSAGE A (RKMR2:34) 
1517 000007 M.ORV= 7 ;DRIVE CODE, ALL BYTES 
1518 077770 M.SER= 77770 :ORIVE SERIAL #, BYTE 11 
1520 .SBTTL COMMON MASKS AND OTHER BITS: MESSAGE B (RKMR3: 36) 
1522 00003 M.ID= ;BYTE ID, ALL BYTES 
1523 eel M.ALGN= 31714 bBY TEN Bich BYTE 10 
1524 000760 M.SECT= 760 :SECTOR COUNT, BYTE 11 
152s 007000 M. HEAD= 7000 * HEAD DECODE BYTE 11 
1526 100000 M.PAR= BITIS ‘PARITY, MESS A/B, ALL BYTES 
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R6GB.P 
1527 

1528 .SBTTL TRAP CATCHER 

1530 ooocco uWdseo 

18 1 L LOCATIONS FROM 4 4 - 776 CONTAIN A. A”. +2,HALT” 

1833 | SSEGUENCE ON 9c CONTATNE 5 £5 LoATeH: IMPROPERLY” Ue sep VECTORS 

1 174 ISPREG: ss AYR R 

1232 176 pise - WORD 8 + SOFTWARE eet REESTER 

1537 ait STARTING ADDRESS(ES) 

1538 000200 000137 010050 IME 0 aeSTART ;;JUMP TO STARTING ADDRESS OF PROGRAM 
1540 000220 is? 010040 ohe PARSRT ; INPUT PARAMETERS 

1542 000240 .=240 

1543 000240 000137 067264 IMP 0.0DT ;ENTER ODT11 

1545 .SBTTL ACT11 HOOKS 

1547 H + LEEK ERE RRR ERRERRR KERR AR RAR RRR RK RRR RAR AAR ARR HRRREREARKREEE 
1548 HOOKS REQUIRED BY ACTI1 

1549 pooe4s $SVPC=. ;SAVE PC 

1551 oo0046 o4e77e SENDAD ;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
1553 oo00S2 100000 "WORD 100000 ; 2 )SET Loc.S2 TO 100000 

1554 poce4s > =$SVPC ?: RESTORE PC 

1555 i600 21 

1556 .SBTTL APT PARAMETER BLOCK 

1558 = REKSREREESESEEEG SERRE EERE ERE RARE RRAR REAR AE RRRRERRAEHREE 
1559 SEI LOCATIONS 24 OR 

1560 re et Th ted eld b-beh- telah 5-5-$-1-5-Sehahalalaiahahelalalaiahelelelaisielelelahelaieleielal 
1561 001000 .SX=. 3 TL TION 

1562 000024 7224 8§=6 5 SET R FA t°Ss INT TO START OF PROGRAM 
1563 000024 00 9200 200 33 T uP 

1564 hOOO44 244 HH IN TO Be APT T HERGER Boe ADDRESS PNTR. 

1565 000044 001000 SAPTHOR ;;POINT T 

1566 001000 =.$X :: T 

156 , aaaaineeeenakhe 2 a ee 
1568 TUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
1563 se Tue aed SPEC. 

1233 agtetia oo0000 Siiats: WORD TWO HIGH BITS OF 18 BIT MAILBOX ADOR 
1255 001002 001210 SMBADR: | WORD nar Hon Tin APT MAILBOX (BITS 0-15) 

1574 001004 0430 STSTM: .WORD RUN TIM OF LONGEST TEST 

1575 001006 001130 SPASTM: .WORD 600. i RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
1576 001010 001130 SUNITM: .WORD 200; OL TIONAL, ONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
1877 001012 oao004e "WORD SO PEND-ShATLS ;LENGTH MAILBOX-E TABLE (WORDS) 
{220 IST MD 

iSs1 * 

1582 ; 
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PORES OOOO MUI UIUIUIUIUIUTUI UU UU 


ee ee he ee ee i ee ee 


$83 ;USE LOOP X TO OMIT SUBCLR 
ses ' 

as . MACRO LOOP A 

4 COP1 

88 sSTACK, SP ;RESTORE STK PTR 

30 IF B A 

91 ISR PC, SUBCLR 

32 ERROR 24 ;CERR AFTER SCLR 

94 . ENDC 

gs “ENDM LOOP 

36 

38 TH S HACR LLS EXPECTE A A Re, 3 W TH STANDARD BITS 

20,05 PIER rat BRO Ores BRtvECeL FAR Bh ane’ 1 TRBLTEB se 
iho gos BE ANY Sir COMET INATION DESIRED & INCL 


* MACRO F.EAB A 

nox gcaio. . SPIN!D.ORDY!D. pvVI AE E. o. ,;EXPECTED MSG AD 

nov aD. SPOK!D. cart: 6. pee Ce E.Al_ ;EXPECTED Al 
i as: Bl ; MS MSG 81 


01 
02 
03 
Os 
07 MOV ;MSG 10 cbt BR EXPECTED’ 
33 sot ee Pot bette 
10 MOV as, ef B5 mec ip Fos FOR E 
11 .ENDM F.EAB 
e15 
614 THIS mare ASSUME IL WAYS BE TESTED 
3 Ue RLY Rae UOhatas Pe Be 1’ en hee anes ee 
18 U Het: Bs 19 RE iT IF 
big ; BS ft TO S Reap Nee Bs t BUT t iNEO IN NTO See TOR *HEADA’ 
620 :USE F=<ERROR DESCRIPTION> 
bee "MACRO CHECK A,C,0,E,F,G,H,I 
624 JSR PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 
bes WORD GHAET is nsGs SPECIF feo HERE’ 
ess RROR C 3M H 80 ERR R 
628 ERROR OD *MSG Al ERROR 
629 ERROR E :MSG Bl ERROR 
630 .ENDM CHECK 
631 
£35 i A=CYL DIFF/OFFSET gERROR 4 
634 :B=CYL ADOR ERR 
635 :C=<ERROR DESCRIPTION> 
£38 MACRO CWD2 2D, °E 
638 MOV aa Bache CRS) 
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P AT 
{Bag ta8 ES Bie sSEE iF use A2=0 
seus PRROR p EARED C 
feds D: FEROR Bann Eg e ie §b&8 
1644 BEQ E 
| 1645 . ERROR 8B ASG tbe ‘Rot CLEARED C 
| 1647 -ENDM  CWD2 
1648 
| 1649 .MACRO STDERI 8B 
1650 F.EAB  <D.DRA!B> 
| 1651 CHECK 165, 166,167,170,<AFTER TIMEOUT>,O,0,0 
| 1652 .ENDM STDERL 
| 1688 . MACRO STDER2 8. anti 
1656 CHECK, 211,212,213,214, <AFTER RELEASE ISSUED>,0,0,0 
165 .ENDM : 
1658 
| 1659 
| 1660 .MACRO DRCLR C,?A 
dees MOV «SUNT T’RKESBC RED ; DRIVES 
| 1664 8 0 GN TB, RKCSE CRS) . payee IF ON PORT B 
1pee JSR PC, DOCMD ;D0 DRIVE CLEAR CMD & GET CONTR RDY 
| 1667 ERROR 15] NO RDY Y AFTER DRIVE CLEAR CMD 
1668 JSR PC, TSTATN TEST FOR A 
| 1670 A ERROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
tpoh IF B Cc 
| 1673 F.EAB 0.DRA 
1674 CHECK 33,34,35,36,<AFTER DRV CLEAR CMD>,1T.A2,T.B2,0 
1675 . ENDC 
1628 ENDM ORCLR 
1678 
1Ea3 
1681 :USE CALIB X TO OMIT CHECKING MSGS AD, BO, Al, Bl, Ae & Be 
166s "MACRO CALIB A,?C 
1685 MOV #CCLR,RKCS1(RS) 
1686 MOV SUNIT, RKCS2(RS) 
1687 UNITB;RKCS2(R5S) ;ADD 1 IF ON PORT B 
1Pa9 mee sRECAL HES! RECAL_CMD T CONTR RDY 
1680 2REor Sq iRSy NOT SET atte RECAL CM 
1632 mov #1, RKMR1 (RS) ;SELECT WORD 1 
1694 2rF eS. ae HMR2 
| 
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1695 BNE c 
1696 ERROR 70 ;RTZ NOT SET DURING RECAL CMD 
1697 C: MOV T10, TEMP2 ‘SETUP TIMEOUT 
1698 ISR PC, FATT :FIND ATTN 
1699 ERROR SS :NO ATTN AFTER RECAL CMD 
1700 .IFB A 
1701 F.EAB <D.0SC!D.DRA> 
1702 CHECK 221,66,222,67,<AFTER RECAL CMD>,T.A2,T.B2,T.83 
170 CwDe 47,50, {AFTER RECAL CMD> 
1704 . ENDC 
1705 DRCLR 
1706 
1707 .ENDM CALIB 
1708 
1709 ; 
1716 :@QUICK START SPINDLE 
1712 "MACRO QKSRT 
1713 
1714 JSR PC, SUBCLR 
1715 ERROR 24 :CERR AFTER SCLR 
1717 MOV #SRTSPL,HCS1 
1718 JSR PC, DOCMD ;D0 START SPINDLE CMD & GET CONTR RDY 
1713 ERROR lel :RDY NOT SET AFTER ST SPIN CMD. 
1721 MOV T100, TEMP2 ;SETUP TIMEOUT 
1722 JSR PC, FATTI :FIND ATTN 
1723 ERROR 74 !NO ATTN AFTER ST SPIN CMD. 
1725 CLR UNLD 
1726 
1727 .ENOM  QKSRT 
1728 
1729 ; 
1730  A=WRHEAD/<CFMT! WRHEAD> 
1731 : USE WRHDR <A>,X | TO OMIT CHECKING AO, BO, Al & Bl 
1733 "MACRO WRHDR A,C,?D 
1734 
1735 MOV #<A> HCS1 
1736 JSR PC, DATCMD ;D0 DATA X FOR CMD & GET CONTR RDY 
1737 ERROR :NO_RDY AFTER WRITE HEADER CMD 
1738 ISR C,GSTAT :GET FRESH STATUS 
1739 BIT #CERR,HCS1 
1740 BEQ D 
Ean) ERROR 201 ;CERR_AFTER WRITE HEADER CMD 
174 YPE MSG21 tABORTING BALANCE OF TESTS 
1743 $EOP 
1744 D: 
1745 wei e¢ 
174 F EAB D.DRA 
174 CHECK  37,40,41,42,<AFTER WRITE HEADER CMD>,0,0,0 
1748 . ENDC 


1750 -ENDM  WRHOR 
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1751 

17Se 3 

1753 ! A=RDHEAD/<CFMT! RDHEAD> 

i7ee !USE RDHDR <A>,X TO OMIT CHECKING AO, BO, Al, Bl 

1756 "MACRO RDHDR A,C,7D,7E 

1758 MOV #RHTAB, RO 

1759 MOV #<A> HES1 

1760 JSR PC, DATCMD ;D0 DATA X FOR CMD & GET CONTR RDY 

1761 ERROR 7k :NO RDY AFTER READ HEADER CMD 

1762 BIT #CERR,HCS1 

1763 BEQ D 

1764 ERROR 174 ;CERR AFTER READ HEADER CMD 

1766 D MOV RKDB(RS),(RO)+ ;1°ST WORD FROM SILO TO RHTAB 

1767 OV RKDB(RS);,(RO)+ ;2°ND WORD 

1768 MOV RKDB(RS);(RO)+ $3°RD WORD 

1770 

1771 BIT #DLT,RKCS2(RS) 

1772 BEQ 

1773 JSR PC,GSTAT 

teen ‘ ERROR 173 ;DLT AFTER READ HEADER CMD 

1776 IF B 

1777 F.EAB D.DRA 

1778 CHECK 301,271,302,272,<AFTER READ HEADER CMD>,T.A2,T.B2,0 

1773 .ENDC 

138y ENDM RDHOR 

178e 

178 

1784 .MACRO HDCHK3 7A 

1785 

1786 RDHDR RDHEAD 

178 CMP RHTAB, TOCYL ;CHECK WORD O ONLY, CYL# 

1788 BEQ A ‘BR IF 

1789 ERROR 51 :WRONG CYL# ON HEADER 

1790 A: 

1791 

1792 .ENDM HDCHK3 

{39a 

1735 : A=TOCYL/FRCYL , B=HEAD#, C = O FOR 22 SECTOR, 1 FOR 20 SECTOR 

1797 "MACRO HOTBL A,B,C 

1739 MOV A, CALADD ; SETUP 

1800 MOV #8, HEAD :TO FILL 

1801 MOV #C} FORMAT ? HEADER 

180¢ JSR PC’ FHDTAB : TABLE 

1804 .ENDM HOTBL 

isos 

1806 : 
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807 ;QUICK SEEK. ENTER WITH CYL# IN RKDC 

B03 "MACRO GKSEEK 7A 

811 MOV #SEEK,HCS1 

gle JSR PC, DOCMD ;D0 SEEK CMD & GET CONTR READY 

813 ERROR 1al :NO ROY AFTER SEEK CMD 

81S MOV TSOOOO, TEMP1 ;SETUP TIMEOUT 

B16 JSR pc. FatTt2 ; 

817 ERROR 132 :NO ATTN AFTER SEEK CMD 

819 BIT #CERR,HCS1 

820 BEQ A 

Bel ERROR 210 ;CERR AFTER SEEK CMD 

823 A: F.EAB <D.DSC!D.DRA> 

ges CHECK 161,162,163, 164,<AFTER SEEK CMD>,0,0,0 

826 .ENDM QKSEEK 

827 

828 


g 


? A=WRDATA/<CFMT! WROATA> 
; C=ADDR TO JMP TO ATTEMPT TO WRITE ON ANOTHER SECTOR 
B= TO JMP TO BYPASS TEST 
: IF BLANK WILL CHECK AO, BO, Al & B1_AT THE END OF WRITING 
‘E: IF NON BLANK WILL OMIT CHECKING AO THRU B1 


-MACRO WDATA A,C,D,E,?F,?G, 7H, 7I 


ee ee ee ee ee ee ee ee ee ee eee ae ee ee ee ae ee ee ee ee ee ee ee ee 
DMOOWDwDnDoMmDMDMMnD 
Sete TERes 
N Whur-O 


MOV #<A>, HCS1 
840 JSR PC, DATCMD ;D0 DATA X FOR CMD & GET CONTR RDY 
841 ERROR 11 ?NO_RDY AFTER WRITE DATA CMD 
Bs ISR PC,.GSTAT :GET FRESH STATUS 
84 BIT #CERR,HCS1 
a] BEQ I ;BR IF NO ERRORS 
846 BIT #BSE, HER ;SEE IF SECTOR FLAG 
847 BEQ :ER if noe 
848 ISR PC, TRUERR tELSE SEE IF SECTOR LISTED IN BSE TABLE 
o43 BR H :RETURN HERE IF NO 
851 INC SECTOR ;RETURN HERE IF YES 
B36 cne SECTOR, #10. > ARE 10 CONSEC. SECTORS BAD 
gs4 ERROR 46 + BE ORTING TEST DETECTED 10 BAD SECTORS 
ess IMP D jBYPASS TES 
oe HOV RCCL, RKCS1 (RS) ; TRY THER SECTOR 
858 ERROR ile ;CERR WITH WRITE DATA CMD 
B53 F.EAB p.0RA 
60 CHECK 2,23,53,25,<AFTER WRITE DATA CMD>,T.A2,T.B2,0 
861 TYPE mScal SABORTING BALANCE OF TESTS 
862 IMP $EOP 


C pepo RK611 OU PORT_LGC TST 
CZR6GB.P11 3-JAN-78 08:46 


oOnow 
00 0D 
NOU 


DNF LO Owe 


NONE LA NR NRA eA 
woo 
SORREONE SS 

N fWwhe--0Ow 


WWWWWVVDWWWWWW 
rd a ae 
ONOUCW-OW 


MACY11 30A 


(1052) 
APT PARAME 
H: ERROR 
IF 
P EAB 
CHECK 


- ENDC 
-ENDM WDATA 


td tA 08:S6 PAGE 37 
R BLOCK 


43 ;BAD SECTOR NOT LISTED IN TABLE 


.DRA 
S2,23,53,25,<AFTER WRITE DATA CMD>,T.A2,T.B2,0 


* A=RDDATA’<CFMT! RDDATA> 


:USE RDATA 


-MACRO RDATA 
MOV 


“ENDM  RDATA 
EXP 
WR 


-MACRO WRCHK 


MOV 
JSR 


<A>,X TO OMIT CHECKING AO, BO, Al & Bl 


A,C, 2D, 7E, 9F, 2G, 7H 
#<A>, HCS1 
PC, DATCMD ;D0 DATA X FOR CMD & GET CONTR RDY 
NO RDY BF TER READ DATA CMD 

PC,GSTAT ?GET FRESH STATUS 

’ 
BOSE, HER ;SEE IF BAD SECTOR 
a ;DETECTED BSE IN READ BUT NOT IN WRITE CMD. 
HOCK, HER ;SEE IF DATA CHECK ERROR 
- ;DATA CHECK ERROR AFTER READ CMD (ECC) 
14 ;CERR AFTER READ DATA CMD. 
D.DRA 
54, 26,56,30, ‘AFTER READ DATA CMD>,T.A2,T.B2,0 
gliagel sABORTING BAL OF TESTS 


c 
DRA 
BeBe se, 30, “AFTER READ DATA CMD>,T.A2,T.B2,0 


; 
; ASWRTCHK/<CEMT ! WRTCHK> 
C= ECTED DATA FOR TYPEOUT 


<A>,DATAO,X TO OMIT CHECKING AO, BO, Al & Bl 


A,C,D, 7E, oF 
#<A> HCS1 


PC, DATCMD ;D0 DATA X FOR CMD & GET CONTR RDY 


SEQ 0037 


iss 
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nP-0 6 0.0.0.0 08.08.00 W000 
LWWWWWWWWW 0 
OWONGU ENM—OOONOUE Ow Vou <= 


00 
Soe oe oe oP oe 


W000 0 


ww 
Salo ara CU oe 


—-OWONTUCWM-OWONTU CONE 


NNOOK OM 
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- ENDC 
. ENDOM 


. MACRO 


SEOP1: 
. ENDM 


. MACRO 


A: 
. ENDM 


O3-JAN-78 08:56 PAGE 38 
APT PARAMETER BLOCK 


SCOPE 


QKPACK 


NO_RDY_ AFTER WRITE CHECK CMD 


PC, GSTAT GET FRESH STATUS 
CERR,HCS1 
#WCE , HCS2 ;SEE IF WRITE CHECK ERROR 
RKDB(RS),WO1 RO _FOR PRINTOUT 
Cc BBS ie epee GreD no FORT YPEOUT 
WCE BF R WRITE C 
2 RA CERR AFTER WRITE CHECK CMD 
57 7 60,32, arn WRITE CHECK CMD>,T.A2,T.B2,0 
mSG 21 ;ABORTING BALANCE OF TESTS 


$20 


.DRA 
57,31,60,32,<AFTER WRITE CHECK CMD>,T.A2,T.B2,0 


pre TMES 
+ » SP 
; INCR COUNT FOR #& DRI S_CHECKED 


Gebers ger i ARE AL b_pRIVES PRESENT TESTED? 
;ELSE TEST NEXT DRIVE PRESENT 


PC, DOCMD ;D0 PACK CMD & GET CONTR RDY 
116 :CONTR NOT RDY AFT PACK CMD 


#D. VV, HMR2 
27 ;VV NOT SET AFTER PACK CMD 


SEQ 0038 


EEE 


NO3 
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| 
1975 ;MACRO TO RELEASE PORT A OR B 
1976 S PORT A: RELEAS O, eB ee (A,B,C,O0 IF USED WITH MACROS BELOW) 
1377 RLS PORT B: RELEAS 1/0'B;A (B,A,0,C IF USED WITH MACROS BELOW) 
1979 *MACRO RELEAS W,X Aicd 
1380 MOV Sint CS2(RS) ;SETUP FOR PORT Y 
1982 ante, RECS2(RS) 
1983 MOVB Y,MSG1 
1984 at RKCS2 (RS) ;RELEASE PORT Y 
1985 MOV 8 LORY HC 
1986 JSR ;D0 SELDRV_(STATUS) CMD & GET CONTR RDY 
1387 ERROR !NO RDY AFTER SEL ORV CMD 
1989 MOV SUNIT,RKCS2(RS) ;SETUP FOR PORT Z 
1990 MOV #X, UNITB 
1991 ADD UNI TB, RKCS2(RS) 
1992 MOVB #’’Z, MSG 
1993 MOV #SELORV,HCS1 
1994 JSR PC, DOCMD :20 SELORV (STATUS) CMD & GET CONTR RDY 
1395 ERROR 11? NO RKY AFTER SEL DRV CMD 
1997 BIT #D.DRA, HMR2 om IF DRIVE AVAIL ON PORT 2 
1998 BNE :BR IF _Y 
13999 P ERROR 71 :PORT Z NOT AVAIL AFTER PORT Y RLS 
2001 -ENDM RELEAS 
e00e 
2003 
2004 
2005 
2006 .MACRO SETP A.C 
2007 MOV #8, UNITE ;SETUP PORT C 
2008 MOVB #’ 'C.MSG19A 
2003 MOV TIMER COUNT 
2010 JSR PC, TMO ;D0 TIMEOUT 
2012 ISR PC, SUBCLR 
2013 ERROR 24 ;CERR AFTER SCLR 
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S 


2015 ISR PC, DRAV ;SEE_IF DRIVE AVAIL 
2016 ERROR 45’ :PORT C NOT AVAIL AFTER TMO 
201 .ENDM SETP 
e018 
| 2013 .MACRO REPTST 
| Boel i THE PREVIOUS TEST IS REPEATED FOR PORT ’B’. 
203 "ENDM REPTST 
024 
e025 - MACRO REPTA 
| 2027 + THE PREVIOUS TEST IS REPEATED FOR PORT ’B’, 
| 2028 + i THE SEEK IS TO CYLINDER O 
2030 *ENDM REPTA 
2031 
203¢ . HACRO HEADER 
; 2034 A & B=0 FOR PORT a OR 1 FOR PORT B 
| 2035 i & D=A FOR PORT A OR B FOR PORT B 
2037 ‘ENDM HEADER 
| 2038 
| 2039 .MACRO SUNIT 
2040 MOV SUNIT,RKCS2(RS) 
| 3Oul ADD UNITB; RKCS2C(RS) 
e042 .ENDM  SUNIT 
2043 
2044 
2045 As B=0 FOR PORT A OR 1 FOR PORT B 
204 8 § D=A FOR PORT A OR B FOR PORT B 
2048 ‘MACRO TST A,B,C,D,E 
2049 oeTB Ac’ or 
SoeT Boy, sepagescare 
2052 CHECK 22,100, 01,102, <AFTER TIMEO T™> > »O,0 
2053 MOV #8, UNIT ;SELECT POR EFORE TIMEOUT OR RELEASE 
2054 MOVB 8’ 'D.MSG19A :SETUP ERROR ice FOR PORT D 
2055 CLR SESCAPE 
e056 JSR PC, DRAV ;SEE IF DR DRIVE AVAIL 
2058 ERROR 103 1 A D BvATL {AoE ORE TMO OR RELEASE 
2060 1S: BIT #CERR,HCS1 
2061 BNE 6S 
e0be ERROR 130 ;CERR NOT SET AFTER SEL DRIVE & DRIVE NOT AVAIL 
6S: MOV #<0.SPIN!D.VV>,E-.AO 
e0b4 roy E-AO,E Al ;MSG A & B SHOULD ALWAYS RETURN SAME 
e066 cLR E: : sree ;WORD O FOR PORT D 
2068 MOV Fee sescape 
2069 CHECK 104'105, 106,107,<WHILE PORT D UNAVAILABLE>,0,0,0 
| 
| 
j 


CO4 
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2070 
2071 TST SPASS 
2072 BEQ ;BR_IF FIRST PASS 
2073 INP ‘ELSE EXIT TEST 
e074 gS: CLR sc 

75 MOV eCCLR RKxcS1(RS) 
2076 MOV 8A, UNITE ;SETUP FOR PORT C AGAIN 
tes oye $3607 COUNT” ETUP 4 SEC TIMEOUT 
2078 oN Beek SN URN ON ON OL Sok 
2081 ISR PC, DRAV 

Be ERROR 45 ;PORT C NOT AVAIL AFTER TIMEOUT 

54 MOV #8, UNITB ;SELECT PORT D BEFORE TIMEOUT OR RELEASE 

MOVB #°'D, MSG19A 
5086 gar Pg, DRAV i BEE, IF, PORT, QD DRIVE AVAIL 
2088 ERROR 103 :PORT D AVAIL BEFORE TO OR RELEASE 
3S: v CLR, RKCS1(RS) 

5036 y gC. 
2092 ADD UNITB{ RY 
2093 ISR PC. FATT3 
58 ERROR 110 ;NO ATTN ON PORT D TO ALLOW SEIZE 

96 ISR PC, CLKOF 
2097 JSR PC, DRAV SE IF PORT D DRIVE AVAIL 

ERROR PORT D NOT AVAIL 


§ 
, tee topes 
CHECK i. i101, ioe, <AFTER TIMEOUT>,0,0,0 


21 
2103 
2104 MOV = cnt ;SETUP FOR PORT C 
2105 MOVB . MSG19A 
2108 ISR pC , TSTATN ;TEST FOR ATTN ON PORT C 
5108 1 ‘ ;PORT C ATTN SET W/O REQUEST PENDING 
2110 4S: MOV #S$, SESCAPE 
21ll MOV #8, UNITE ;SETUP FOR PORT D 
11g MOVE #’ 'D,MSG19A 
113 CLR 
11S MOV #360,R1 
g1ie SUB COUNT Ri ind BY 1s 66 
giig TYPE e , :BORT TIMEOUT 
li MOV RI,-(SP) Y ONTO STACK 
5151 Joh «PE SSUPRS  SOWvERT i aa 
25 YPE Pages ims 
164 S$: CLR SESCAPE 


JSR PC, CLKOF 


CZR6GBO _RK611 OU PORT LGC TST 
CZR6GB.P11 O03-JAN-78 08:46 


2 


FON SOOVTM LO WOOD VOU LUO OD ATU LOUHO DE NO Foe ODS 


rurururororurururururururururororurun rurororuru rurururoruru rurururu rorororore furorore fu furofu fu rorurorurororu 


ae a a ae te ae ee ee ae ae ae ae ee be ee he be ae a Be be Bae ae pe ee ae ae se ae be Be be be ee be be ee be bh he ee he 


DOvNNNAY 
-OWONOU 


O04 


MACY11 30A(10S2) 
APT PARAMETER BLOCK 
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A & B=0 FOR PORT A OR 1 FOR PORT B 
iC & D=A FOR PORT A OR B FOR PORT B 


* MACRO Isto 8, ,C,D,E,F, 2G 
T 
MOV #f , RKDC(RS) 


;SEEK TO CYL F 


EK 
S PC YLA YL ADDR 
YR" pe Rpeva =: BEBO. ev. AOD 
BEG racy :BR IF YES 
MOV # 
Mov Oar ote 
MOV WE RKOC (RS) ;REFRESH RKDC 
ERROR :DID NOT SEEK TO CYL F 
G: MOV #150. , COUNT 
JSR PC, THO ;00 2.5 SEC TIMEOUT 
JSR PC’ FATT2 
broek 112 ;ATTN CLEARED AFTER TMO 
gs PC, DRAV 
ERR 113 :PORT C NOT AVAIL AFTER DRIVE CLEAR CMD 
ENDM TST10 
'@ & B=0 FOR PORT A OR 1 FOR PORT 8 
:C & D=A FOR PORT A OR B FOR PORT & 
’ 
"MACRO TST12 A,8,C,D 
te Are’ ¢ 
SEEK 
Vv TIMER, COUNT 
JSR PC, TM ;D0 1.5 SEC TIMEOUT 
mov #8, Tg ‘SETUP PORT D 
VB % MSG19A 
JSR PC, DRAV 
ERROR 45 ;PORT D NOT AVAIL AFTER TMO 
STDERI O 
QKSEEK 
MOV TIMER, COUNT 
JSR PC, TMO 
Vv #8, UNIT ;SETUP PORTC 
MOVB #’ 'C.MSG19A 
JSR C,DRAV 
ERROR S ;PORT C NOT AVAIL AFTER TMO 
TDER1 D.DSC 
RCLR 
MOV TIMER, COUNT 
JSR ;D0 1.5 SEC TIMEOUT 
MOV #8; UNITB :SETUP PORT D 


SEQ 0042 
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| 


mu 
~ 
oro 


frururururururuororururururururururururu) 
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eee 


rurorururofrurururururururururury 
WN-OWONTU CWO 


mur 


rorerorurorurururururururururufururufurururururururururururu 
PREG DO AOOE 


rorurofururururunorur 


WwW 
N 


EO4 


PARAMETER BLOCK 


MOVB 
JSR 
ERROR 


STDER1 
-ENDM TSTle 


'@ & B=0 FOR PORT A OR 1 FOR PORT B 
:C & D=A FOR PORT A OR B FOR PORT B 
"MACRO TSTI4 A,B,C,D 
SETP ASC 
RELEAS A'6,C,D 
ISR PC, tStATN 
- ERROR bis . ;ATTN SET IN PORT D AFTER RLS OF PORT C 
s CHECK  133,134,135,136,<AFTER RELEASED TO PORT D>,0,0,0 
MOV #A, UNITE ;ADDRESS PORT C 
MOVB 8’ C MSG1GA 
ISR PC, TSTATN 
SKIP R,<GOTO NEXT TST> 
ERROR iis ;ATTN SET AFTER RLS ISSUED 
STDERE DRA 
. ENDM ST14 
fa & B=O FOR PORT A OR 1 FOR PORT B 
:C & D=A FOR PORT A OR B FOR PORT B 
"MACRO TST16_ A,8,C,0 
RELEAS B;A:D,C 
STDER2 D.DRA 
ISR ¢, SUBCLR 
RROR 24 ;CERR AFTER SCLR 
SEEK 
MOV #8, UNITB ;SETUP PORT D 
MOVB #’ DO. MSG19A 
JSR PC, DRAV ;SEE IF DRIVE AVAIL 
BR ROR té3 ;PORT D AVAIL BEFORE TMO OR RELEASE 
1S: Be SCERR, HCS1 
RROR 1 ;CERR NOT SET AFTER SEL DRIVE CMD 
:& NO DRA 
2s: JSR PC, TSTATN 
ERROR 115 ;ATTN SET IN PORT D AFTER RLS FROM PORT C 
3S: MOV #CCLR,RKCS1(RS) 
RELEAS A,B,C,D 


#’’D,MSG19A 
PC, TSTATN 
114 


0.0SC 
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;ATTN RESET ON PORT D AFTER DR CLR CMD 
;ON PORT C 
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CZ2R6 
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GB.P11 03-JAN-78 08:46 PARAMETER BLOCK 

2238 JSR PC, TSTATN 

2239 ERROR 122 ;NO ATTN IN PORT D AFTER RLS FROM PORT C 
gel STDERE <D.DSC!D.DRA> 

24 RELEAS B,A,D.C 

2243 ISR pt. tStatn 

8 43 ERROR 123 ;ATTN CLEARED IN PORT C AFT RLS FROM PORT D 
2 STDER <D.DSC!D.DRA> 

53u7 LE A,B,C,0 
2248 DRCLR 

2049 MOV TIMER, COUNT 
2250 ISR PC, TMO ;D0 1.5 SEC TIMEOUT ON PORT D 

2251 JSR PC: TSTATN 

2252 SKIP R,<GOTO NEXT TST> 

2253 ERROR 144 ;MULT ATTN ON PORT D 

2254 .ENOM TST16 

2255 

5505 

258 :A & B=0 FOR PORT A OR 1 FOR PORT B 
ge59 :C & D=A FOR PORT A OR B FOR PORT B 

eebl > MACRO TsT20_ 8.B,C.D 

55es S BERS D: DRA’ 

2264 JSR PC, SUBCLR 
gebe ERROR 24 ;CERR AFTER SCLR 
e267 MOV #8, UNITB ;SETUP PORT D 

268 MOVB #’ 'D.MSG19A 
gees JSR PC, DRAV ;SEE IF DRIVE AVAIL 
g ra ERROR 1 ;PORT D AVAIL BEFORE TMO OR RELEASE 
2273 1S: BIT #CERR,HCS1 

2274 BNE 2s 
gore ERROR 130 ;CERR NOT SET BY NO DRA 
2277 2s: JSR PC, TSTATN 
2278 BR 3$’ 
ge73 ERROR 115 ;ATTN SET IN PORT D AFTER RLS FROM PORT C 
2281 3S: MOV BCCLR,RKCS1(RS) 
2282 RELEAS 8,A,D; 
2283 RELEAS A'B c.0 
2284 MOV TIMER; COUNT 
228s JSR , 1M ;D0 1.5 SEC TIMEOUT ON PORT D 
ces an 
gees ERROR 115 ;ATTN SET ON PORT D AFTER RLS FROM PORT D 
2290 4$: STDER2 

2291 MOV #A, UNITB ;SETUP PORT C 

2292 MOVB #’ 'C.MSG19A 

2293 JSR Pc, TSTATN 


SEQ 0044 


04 eae 
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2294 SKIP R,<GOTO NEXT TST> 
g .ENDM ST20 
| e297 
2298 
| 299 ; 
| 2300 :A & B=0 FOR PORT A OR 1 FOR PORT B 
| 2301 :C & D=A FOR PORT A OR B FOR PORT B 
2303 "MACRO TST22 A,B,C,D 
2304 SETP ASC 
2305 RELEAS B;A,D,C 
2306 STDER2 D:DRA 
2307 .ENOM TST2e2 
2308 
2309 ; 
2310 A $ B=0 FOR PORT A OR 1 FOR PORT B 
g3i1 :C =A FOR PORT A OR B FOR PORT B 
2313 "MACRO TST24 A,B,C,D,E 
2314 RELEAS B.A.D.C 
2315 pt, SUBCLR 
5319 OR 24 ;CERR AFTER SCLR 
2318 MOV #E ,RKDC(RS) 
2319 MOV #SEEK. HC 
2320 JSR PC, DO¢MD ;00 SEEK CMD & GET CONTR READY 
ERR 1s :NO RDY AFTER SEEK CMD 
RELEAS c,D 
232 MOV T bob TEMP1 
JSR PC, FaTt2 
ERROR 152 ;NO ATTN ON PORT D AFTER SEEK & RLS FROM PORT C 
F.EAB <D.DRA!D. DSC 
CHECK 145, 146,147,150,<AFTER SEEK & RLS FROM PORT C>,0,0,0 
RELEAS A'D 
JSR pe, TSTATN 
ERROR 160 ;ATTN ON PORT C AFTER SEEK & RLS FROM PORT C 
1S: F.EAB D.ORA 
CHECK 145,146,147,1S50,<AFTER SEEK & RLS FROM PORT C>,0,0,0 
.ENDM TST24 


tA & B=O FOR PORT A OR 1 FOR PORT B 
'C 8 D=A FOR PORT A OR B FOR PORT B 


* MACRO TeT26 A,B,C,D 
JSR pt, SUBCLR 
ERROR ;CERR AFTER SCLR 
RELEAS B,A,D,C 

JSR pt, SUBCLR 

ERROR 24 


MOV #30. , COUNT 


B65 RROR 115 ;ATTN SET ON PORT C, AFTER RLS FROM PORT C 
;CERR AFTER SCLR 

| 

| 
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APT PARAMETER BLOCK 


1$: 


4h 


ER 
-ENDM TSTe6 


1$: 


es: 


PE; ORAv Re SEYZE ORIVE THRU PoRT. 


C NOT AVAIL AFTER TIMEOUT 


' 
#-1, COUNT 
Pc, CLKON s TURN ON CLOCK 
#8; UNITB ‘SETUP PORT D 
Pc, DRAV SEE TF DRV AVAIL 
1 :B NO 
:PORT C AVAIL BEFORE TMO OR RLS 
ane MSG1GA 
SUNIT, RY 
UNITB:RY 
PC. FATT3 
116 ;NO ATTN ON PORT D TO ALLOW SEIZE 
PC, CLKOF ;TURN CLOCK OFF 
COUNT :GET ACTUAL COUNT OF TIMEOUT 
COUNT, #35. ‘COMPARE COUNT AGAINST APPROX 1 SEC 


GE cc. TO NEXT TEST> 
4 S TIMEOUT DID NOT RE-TRIGGER 


et B=0 FOR PORT A OR 1 FOR PORT B 
& D=A FOR PORT A OR B FOR PORT B 


‘macro TST30 
JSR 


RECeAS 
JS 


pas BAS BLR 
fia ;CERR AFTER SCLR 

a SUBCLR 

;CERR AFTER SCLR 

r ;SETUP FOR PORT D 

oF NACE on on 
PC, DRAV ;PORT D TRIES TO SEIZE THE DRIVE 

:BR IF NOT AVAIL 

103 :PORT D AVAIL BEFORE TMO OR RELEASE 
HcCLR, RKCS1(RS) 

8A UNtTS ;SETUP FOR PORT C 
a’ 'C,MSG19A 
PC, DRAV 
103 ;PORT C AVAIL BEFORE TMO OR RELEASE 
WCCLR RKCS1(RS) 

1 COUNT 

é TACRON 

AIT,RY 
UNI TB RY 

Cc, FaAtT3 
116 ;NO ATTN ON PORT C TO ALLOW SEIZE 


SEQ 0046 
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JSR PC, CLKOF ; TURN CLOCK OFF 


SEQ 0047 


COM COUNT :GET ACTUAL COUNT OF TIMEOUT 

CMP EouNt H35. ‘COMPARE AGAINST APPROX I SEC 

SKIP F-cuo T TST> 

ERROR $E4 > TIMEOUT DID NOT RE-TRIGGER 
.ENOM  TST30 

& B=0 FOR PORT A OR 1 FOR PORT B 
% D=A FOR PORT A OR B FOR PORT B 

Maco RELEAS B'A'D'C 

ISR pt, SUBCLR 

ERROR 24 ;CERR AFTER SCLR 

INC UNLD ;USED FOR VALID HALT 

MOV #2$, SESCAPE 

MOV Hiatt HCS1 ;UNLOAD CMD 

BIS STMPY HOS 

MOV HCS1,RKCS1(RS) 

MOV T10, TEMP1 jSETUP TIMEOUT 

JSR PC, FATT2 :FIND A 

ERROR 73 NO OTN METER UNLD CMD 

MOV #300. COUNT 

JSR PC, THO ;D0 5 SEC DELAY 

v 8, UNITB ‘SETUP FOR PORT D 

MOVB #’ 'D.MSG19A 

JSR Pc, DR 

ERROR 155 ;PORT D AVAIL BEFORE WHEN UNLOADED 

:UNLOAD DID NOT INHI IMERS 

1S: MOV aCcLR, RKCS1(RS) 

RELEAS 
2s: CLR SESCHAE 

GKSRT 

CLR 
.ENOM TST32 
a & B=0 FOR PORT A OR 1 FOR PORT B 
;C & D=A FOR PORT A OR B FOR PORT B 


wore PE GA 


ISR- 

ERROR ;CERR AFTER SCLR 
MOV aSS SESCAPE 

MOV LC, RKDC(RS) ;SEEK TO LAST CYL 
QKSEEK 
DRCLR 


O04 
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2462 MOV #RECAL, HCS1 ;RECAL COMMAND 
2463 BIS STMPY HCS1 
2464 MOV HCS1, RKCS1(RS) 
2465 MOV SUN Nit, RY 
2466 ADD UNITB 
2467 1S: BITB ATTNCRG), RKASOF+1(RS)  ;SEE IF ATTN SET 
e168 BNE 33 ;BR IF YES 
2470 MOV #8, UNITB ;SETUP FOR PORT D 
2471 MOVB #’ 'D.MSG19A 
2472 JSR : , DRAV ;SEE IF DRV_AVAIL 
e473 BR RETURN HER IF NO 
74 ERROR 1 :PORT D AVAIL 
2475 :RECAL DID NOT INHIBIT TIMERS 
2476 2s: MOV #CCLR,RKCS1(RS) 
e477 MOV #A, UNITE 
2478 MOVB #’ 'C,MSG19A ;SETUP_ PORT C 
2479 JSR PC, DRAV ‘SEE IF ORV AVAIL 
2480 ERROR 203 :PORT C NOT REMAIN AVAIL DURING RECAL 
2481 BR 1$ 
2482 
2483 3: ISR PC, GSTAT 
2484 BIT #0:PIP,HMRe ;SEE_IF ANY MOTION 
2485 BEQ 4§ :BR IF _NO 
eee ERROR 72 :PIP SET AFTER ATTN REC’D FROM RECAL 
87 4S: MOV #120. , COUNT 
2488 JSR Pc, THO ;D0 2 SEC DLY 
2489 MOV #8, UNITB :SETUP FOR PORT D 
2430 MOVB #’ 'D,MSG19A 
2491 JSR PC,DR ;SEE_IF DRV NOW AVAIL 
sige ERROR :PORT D NOT AVAIL AFTER TMO 
2494 S$: CLR SESCAPE 
2495 -ENDM ‘ST32A 
2496 
2497 
2498 -NLIST MD 
2499 
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-SBTTL COMMON TAGS 


+3 SE 36 3 HE ESE JE HE SE SE SE SE J 28 SE 9 0 a HE J EH 
IATHIS T E CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
; #USED IN HE PROGRAM. 
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001100 -=1100 
900000 SCMTAG: 0 0 ;;START OF COMMON TAGS 

000 STSTNM: “BYTE 0 ss CONTAINS pa 3 on Prac NUMBER 

000 SERFLG: .BYTE OQ CONTAINS E 
000000 SICNT: . 0 rae i SETERATION COUNT 
000000 SLPADR: .WORD OQ 35 CONTA DRESS 
000000 peers -WORD OQ ; iSonTat RETURN FOR ERRORS 
000000 SERTTL: D =O ; HSONTAINS a reo ByT CTED 

000 SITEMB: .BYTE QO ITEM CONTROL T 

001 SERMAX: .BYTE 1 : t  CONTAT MAX. ERRORS PER TEST 
000000 SERRPC: . 0 ; ; CONTA PSone AST Fan. INSTRUCTION 
000000 GDADR: .WORD 0 3; CONTA SS OF ’ DATA 
000000 SBDADR: .WORD O 5s EONTATNE "Goon" OF ‘BaD? DATA 
000000 SGDDAT: .WORD OQ ;; CONTA , penn 

00 SBDDAT: .WORD OQ 5 5 SONTATIE oo pare 

0000 WORD , ; ;RESERVED--NOT TO BE USED 

000 SAUTOB: .BYT 3; AUT CATOR 

Bee SINTAG: .BYT 0 : ONTERRUPT MODE INDICATOR 
177870 SWR: WORD DSWR $3 ITCH REGISTER 
1oeern BISELAY: WO DOISP $3 ia EGISTER 

STKS: 17756 s31TY K 

177562 $TKB: TTY Ki 
177564 $TPS: 177564 33;ITY PRIN Rn eF, G. ADDRESS 
rs Se Has f Perenetes Pees 

i site Be fe AGRERIYE tee eaPac Eta PEBUEEED 

. . OD 

000 STPFLG: .BYTE O 3°T NAL AVAILABLE” FLAG (B1T<07>=0=YES) 
000000 STMPO: .WO 8 ;; USER EINER 
000000 STMP1: .WORD ;;USER DEF 
000000 STMPe: .WORD OQ ;;USER DEF ine 

STMP3: .WORD O ;; USER NED 

000000 STMP4: .WORD Q ;;USER DEFINED 
000000 Ua F ,WORD O ;;USER DEFINED 
000000 STIMES: O ;;MAX. NUMBER OF ITERATIONS 
0000093 SESCAPE :0 ;3ESC ON ERROR ADDRESS 
177607 000377 SBELL: .ASCIZ Sor tarretrrs ;;CODE FOR BELL 

077 SQUES: .ASCITI ; ;QUESTION MARK 

015 SCRLF: .ASCII as ;; CARRIAGE RETURN 
o0001e SLF: < LINE 


> 
Lebreadi tt if rest ieneecepeoeneakitaneeenenentanavenenenenvanacan 
A8TTL APT MAILBOX-ETABLE 


REGGE RRA RE RAE RAE RRR REE RRR RERRAE REL AREAKE 


EVEN 
MAIL: 5 ;APT MAILBOX 
oooo00 SMSGTY: .WORD AMSGTY ::MESSAGE TYPE CODE 


SEQ 0049 
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Sate eae RR ob fe: a6 T LBOX-ETABLE — _— 
2s E 901218 oo0000 FATAL: - WORD araTaL ;;FATAL ERROR NUMBER 
ee 4 ° ee 
ge 001216 reufatetta Spbecs* -HSRD Ass ti pase NOURT 
2559 O0le 000000 S$DEVCT: .WORD ADEVCT i }DEVICE COUNT 
2560 O0i¢ee 000000 S$UNIT: .:WORD UNIT 3:1/70 UNIT NUMBER 
e561 l 24 oo0000 SHSGAD: “WORD AMSGAD ; MESSAGE ADDRESS 
s2e§ 851858 srrabe : aS ENVI NT TABLE 
2564 091230 SENV: - BYTE RENV | j }ENVIRONMENT TE "2 
s 7 s s ee 
Seep Ba 1S33 oo0Sbe Seleee: RB ASWREG bE BBY Epa RECTSTE 
2567 001234 o00000 SUSWR: .WOR WR  ;;USER SWIT HES 
e568 001236 000000 SCPLOP: “WOR ACPUOP ii eu pe OPT 
2570 :% 11704201, 11/05=02, 11/20=03, 11/40=04, 11745=05 
2S71 3% anti Fine’ crac ,9=10 
g2c5 + Bee a RT OATING POINT PROCESSOR 
74 re BHT g=nEnORY RANAGEMENT 
2575 001240 000 $mAMS1: .BYTE AMAMS1 ;;HIGH SS,M.S. BYTE 
2576 001241 000 SMTYP1: .BYTE AMTYP1 ::MEM. TYPE BLkei 
e577 ;# Mem. TYPE BYt e (HIGH BYTE) 
257 : NEG SoBBL =002 
seat if Aa ee 
1 001242 oD0000 $MADR1: .WORD AMADR1 ;;HIGH S #1 
2582 . MEM. LAST ADOR. =3 BYTES, THIS WORD AND LOW OF “TYPE” ABOVE 
2583 1244 000 $mamse: .BYT ; ;HIGH .S. BYTE 
124s 000 SMTYPe: .BYT AMT > MEM. TYPE, BLK 
2585 1246 000000 SMADRe: :WORD AMA ;;MEM.LAS SS, BLK#2 
gee oo1es0 o09 snares: -BYT Anarts ; HIGH SS,M.S.BY 
87 O01 0 MTYP3: .BYT AMTY >; MEM. »BLKS3 
2588 001562 000000 SMADR3: :WORD AMADRS ;;MEM.L SS,BLK#3 
25 001254 00 san 4 -BYT anartss ;3HIGH SS,M.S.BYTE 
001255 OC MTYP4: :BYTE AMTY 3 ;MEM. TYPE, BLK SY 
Seg5 O01Se0 SpOODH SvEcTii RE AT eee eee UrCTORE: GUS PRIORITY #1 
2593 O0le62 000000 SVECT2: WORD AVECTS 3;IN T ETORSeAU PRIORIT 
gee See 7744) $ SE: EBB abe 5 5 BOS OF EQUIPMENT UNDER TEST 
259% O01 SCDW1: : 1  33CON DESCRIPTION WORD#1 
2597 1272 SCOW2: .WORD AC ; CONT SCR PTION WORD#2 
sx Beltre spe i 3 i 
001 CR i 3;0€V PT #1 
2600 O01 $ODW2: [WORD ADDWe ;;DEVIC PTOR WORD#2 
=601 001302 SDDW3: :WORD ADDWS ;;DEVIC RIPTOR WORD#3 
2602 OP 1304 SDDW4: :WORD ADDWY 3;;DEVIC SCRIPTOR WORDS4 
2603 £ DWS: :WORD ADDWS ;;DEV c RIPT ry 
s604 131 : :WORD A We :: DEV RIPTOR WORDS 
a3l Wd “WORD ADDW DEVIC RIPTOR WORDS 
2606 001314 SETEND: 
Bat 7744 Paes 77440 FAULT BUSS ADDRES 
at 001314 baa218 ARUP: 45 iB FAULT BUS PROPLER ENTERRUPT VECTOR 
2610 OC1316 oO00240 RKPRI: PRS : PRIORITY 
2611 001320 172540 PKS: 172540 :P=CLOCK STATUS REG 
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2612 OO01322 172542 PKSB: 172542 ;P=CLOCK SET FER 
gol 001368 17geu4 PKRB: 17ee44 ?P=CLOCK A FFER 
eb14 601 77546 LKS: 177546 *L-CLOCK STATUS REG. 
16 001 D001 CVEC: 1 -CLOCK INTERRUPT VECTOR 
e617 pgi33o BBB isa BEVER: 180 pa SEK INTERRUPT VECTOR. 
gel3 rest EMBs: 172100 ORY eeRt TY OPTION CSR START ADDR 
eee 001334 bo5d00 MEOBPes h ine PER MEM 1-0 13h, C2 Rap 
2623 1336 o00000 PARAM: O ;1 FOR 220 START, NO DEFAULT 
ebe4 1340 oo00000 FTITLE: O tFLAG FOR PRINTING OUT 1ST PROGRAM TITLE 
001342 oo0000 DRVPTR: O ;CONTAI POINTER TO THE DRIVE FLAG 
e627 sneal seniieelil ; s SORIVE-B W ) OF THE DRIVE TO BE CHECKED NEXT. 
2629 001344 O00000 FRCYL: 0 !FROM CYLINDER 
30 O01 000 TOCYL: O ?TO CYLINDER 
obi D0 1350 59003 CYL: O iC D INN SQUARE TE TEST 
001 a ?PREV CYL. Use IN N SQUAR 
2633 001354 gg0000 CALOIE: 0 i CALC eye bIFF JSEL INN SGUARE RE TEST 
ses BE 1368 vialetta Cy OO Eye BoDR, RIGHT JHSTTETER ERM RKMRS 
8636 001 000000 0 ?CYL IN FHDTAB ROUTINE 
2638 001364 000074 HZ: 60. ;60 FOR 60 C 
40 001366 oD00000 COUNT: 0 i OapeD ie Penbe TO COUNT TO 1 SEC 
cout ant de ‘ 5 R TO COUNT OFF FRACTIONAL SECOND 
43 01378 990900 TIMUP: O i SECOND COUN PHBE Bre TIME IS UP 
43 001374 SECTOR: 0 ‘SECTOR COUNT, RIGHT JUSTIFIED FROM RKMR3 
e64 50188 O1 TH: 1, ; TIMEOUT CONSTANTS 
48 0014 £5 120; 50. 
2649 001404 0764 TS500: #500. 
seer oi4ie OLTETD Tep08; $0000 
ee5e artes Ta ie38 750000: 25000. 
654 
5S 001414 o00000 WD1 rs) ;ACTUAL HEADER/DATA WORD 
eee OB 1s25 93000 WDE: o j EXPECTED DATA WORD 
0014 00 HEADA: O Ht AD # FROM H.83, RT. JUSTIFIED 
2659 anes go0000 HOL: 0 s SHIFTED, Heno8 “FOR FORMATTER ROUTINE 
eee 601438 B0588¢ FMTL: & : SHIFTED FORMAT FOR FORMATTER ROUTINE 
sees 0014 000000 WOCNT: O :WORD COUN 
2664 001434 o00000 DATAO: O sALL O'S 
2665 001436 052525 DATAOI: S2S25 arb. PATT 
2666 OO144O 177777 DATAL: 177777 tALL 1°S 
2667 OO1442 133467 DPAT1: 133467 
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Bees 


2670 
7 
A 
7. 

74 


7s 
579 
2678 


ce 


Patatatatal 


Rdutatataatat at atta al att 
“ewan ey 


rurururorororururu 


NNN NNNNNNNNNNNNSNNNNNNNNSY 


rororururorurorururururururoru 


001444 


301446 
301450 


005344 
00S346 
005250 


070627 





000000 
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T MAILBOX-ETABLE 


DPAT2: 70627 
WORD: QO ;HEADER/DATA WORD 
HOWD: O ;HEADER WORD FROM RKDB 
BSERR: QO CANNOT READ BSE INFO WHEN SET 

IMERR: O PCIMIT * CT ERROR FL 

YPCERR: 0 :SET TO_1 TO BYPASS CKCERR IN ’*GSTATI’ 
HKFLG: O ;WORDS TO BE TESTED 


HOTAB: .BLKW 66. ; CALCULATED HEADER 


Rurag: etki BB: iEILLED eee ee SET oe 


BSE22H: .BLKW 256 SECTOR PHARDUA NFO 
ie ; SECTOR SOFTWARE BSE INFO. 


BSEeeS: .BLKW eS6. ;e2 SECTOR SOF 
ROTAB: .BLKW 256. ;FILLED AFTER READ DATA 
UNLD: 0O ;SET TO O IF HEADS ARE LOADED 
;SET TO 4 ff OADED 
BADHOR: 0 ;SET TO FF TTING OK 
;SET TO 1 IF FORMATTING ALTERED 
HPEND: O ;SET TO O IF HALT NOT PEND 
;SET TO 1 IF HALT PENDING 
; THE ABOVE 3 FLAGS ARE USED 
;BY_*STOP’ ROUTINE TO BRING 
; THE CPU TO A VALID HALT 
ATTN: -BYTE 1,2,4,10,20,40, 100,200 ;ATN O-7 RESP. 


- EVEN 


THE FOLLOWING ARE HOLDING REGISTERS FOR THE RK611 REGISTERS 
j THEY ARE LOADED AFTER RDY IS REC’D FROM WROY ROUTINE. 


;HOLD RKCS1 
; HOLD RKCS2 
SHLD RKWC 


= 
D 
S 
OOOO OCOO0CO000000 
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2724 
7 I TEMP1: 9 ; TEMPORARY STORAGE. 
7, 4 O0f TEMPe: 
| 7) T MP3: 0 
7 TEMPY: O 
e7e9 005362 TEMPS: 0 
Hee ! THE FOLLOWING ARE HOLDING REGISTERS FOR MSGA(O-3) & MSGB(0-3). 
27 4 H.ao: oO 
o3c H. BO: f 
ee . 
2738 0053 H:B1: 0 
| 553, Geese! §poones Hee; OO 
6536 Ope08 ave H.Ad: O 
erg 005402 000000 H.B83: O 
erie ;THE FOLLOWING ARE ’EXPECTED’ REGISTER FOR THE ABOVE. 
| Bar o0s404 t.a0: oO 
2745 0054 000000 E.80: O 
2 00541 E.Al: O 
| Boaa ooeuia EvAe: 0 
4 49 pbeute rele E- BS: 0 
2750 005420 E.A3: O 
e7e1 oo0S42e2 000000 E.83: O 
a i THE FOLLOWING ARE IDENTIFIERS FOR DRIVE MSG WORDS TO BE TESTED. 
2755 000001 }. g2=B1T0 ; TEST MSG A2 IF SET 
2756 ooo002 T.B2=BIT1 
e757 0000 T:B3=BIT2 
ere 'ALL THE FLAGS BELOW ARE CLEARED INITIALLY BY THE CLRFLG ROUTINE. 
2761 oOS4¥24 oo0000 ODUMP : ;FLAG - SET WHEN IN DOP DUMP MODE 
277 005 000000 DPCH: ;FLAG - 1 Hen N BOP CHAIN MODE 
2763 005430 o00000 ACTII1: :FLAG - N OF OPERATION 
2764 005432 Oo00000 PPTP: *FLAG - RogRAA. Lab D BY PAPER TAPE 
6765 005434 000000 DRIVS: O + CONTAINS THE pHAUMBER OF DRIVES PRESENT 
ae ‘THE FLAGS BELOW ARE SET TO 1 TO INDICATE THAT A PARTICULAR DRIVE 
2768 ?IS PRESENT AND 1 To BE TESTED. 
6769 :ONLY DRIVES 0,2,4,6 CAN BE TESTED. 
5550 4 : TT N DORIV PRESENT 
5778 4 90000 Datve: : FLAG SFT 9 1 WHEN DRIVE O PRES 
77 000000 ORIVe: O :FOR DRIVE 5 
DRIV3: :FOR DRI 3 
g DRI Vi: ?FOR DR 4 
ORIVS: :FOR ORIVE S 
DRIV6: O :FOR DRIVE 6 
DRIV7: O :FOR DRIVE 7 
| 
| 
| 
| 


CZR&GBO RK611 DU PORT LGC TST 
CZ2R6GB.P11 


03-JAN-78 08:46 


eer Bosses 00000 
585 Boeves o0b00 


e78S o0S466 000132 


COS 
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LCLKF: QO f ow.te FLAG PRESENT FLAG 
PCLKF: O ;P-CLOCK FLAG PRESENT FLAG 
SIZFLG: 0 ;SET IF FAULT By BAZ ING IN TEST 1 
UNITB: O 39 FOR PORT A: IVES 0,2,4,6 
31 PORT B: DRIVES 1,3,5,7 
TIMER: 90. ; TIMER FOR 1.5 SEC 


SEQ 00S4 
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z .SBTTL ERROR POINTER TABLE 
? ;*THIS TABLE TAINS THE INFORMA FOR EAC ERROR T THAT CAN OCCUR. 
568 STHE INFORMATION te OBTAINED BY UEtNc THe TNDEX NUMBER FOUND. {N 
2790 ixLOcATION SITEMB. THIS RY ICATES BHTCH } M IN THE TABLE IS PERTINENT. 
2791 NOTEL: Me 1 d Y PERTINENT 1 bata 1S _ (SER 
e73e i NOTED: bch ITEM IN THE aa 3 CONTAINS 4 POINTE EER AINED AS FOLLOWS: 
2794 5% EM ; POINTS To THE ERROR MESSAGE 
? 1 i DH :;POIN eT BATA HEADER 
7 1 T ::POINTS T 
e797 1 i OF :;POINTS TO THE DATA FORMAT 
2799 
2800 005470 SERRTB 
; ERROR 
eit 905470 OS7111 "Ene ;DR # IN RKCS2 CANNOT BE READ BACK CORRECTLY IN RKMR2 
2805 474 065512 OT1 
e808 005476 14 OF 1 
e808 ;ERROR 2 
08 509 057330 ENS ;DETECTED MDS 
1 O65 12 ort 
: 14 Fl 
14 sERROR 3 
cals 905519 057351 F EMG ;DETECTED UFE 
17 te 14 ast T 
12 Boeete 1§ Br 
;ERROR 4 - 
i 520 057378 EN? ;DETECTED DRA & NED RESET (WRONG PORT SELECTED?) 
oes5 BE peels OT1 
Boeese | beesis BF 
;ERROR 5S 
2831 ;ERROR 6 
535 ee Bees EMG ;DR NOT PRESENT BUT SPECIFIED BY OPERATOR 
44 551 DT 
e835 546 066314 DF 1 
35 sERROR 7 
38 0055 057718 EMLO ;ABORT TEST, COULD NOT REFERENCE CONTROLLER REGISTER 
2840 005554 065512 OT1 
2841 OOSSS&6 066314 OF 1 


ee ee 
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ERROR POINTER TABLE 
;ERROR 10 


— 


Nr 


oO 


;ERR 12 


NAS NHATSs Nar 
Ne 


Lee A OLA YM coed col AY | ce el ed dd 


000m oOoOOMm QoOr 
Oo 


;ERR 13 


oom 
iis 
——T— 
oO or 


;ERR 14 


fof 
oOo OF 


;ERR 15 


faza ALI SF 
furu 


KL) mee 
oO 


;ERR 16 


oom 

al | 
Wow 

Mo 


5 


;ERR 17 


3 


= nN 
om mw 


;ERR 20 


im OO 
or 


Rs 


;ERR 21 


;ERR 22 


;DRA & NED BOTH SET 


;NO_RDY 
;AFTER WRITE DATA CMD 


;CERR SET 


;NO_RDY 
;AFTER READ DATA CMD 


;CERR SET 


;NO_RDY 
;AFTER WRITE CHECK CMD 


;UNEXP MEM PARITY TRAP 
Wee? #, TRAP PC 


AO DATA NOT COMPARE WITH WRITE DATA 


;RE 
;AFTER READ DATA CMD 


;DATA CHECK ERROR 


T 
RITE CHECK CMD 


SEQ 0056 
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2898 005706 066444 DF 10 
$833 00s710 060352 sERR 23 18 ;MSG_BO ERROR 
712 4 DH27 !AFTER WRITE DATA CMD 
ae Es Eee ne 
16 OF21 
2904 ;ERROR 24 
Sane bpesss bEsdee at ERR SCLR 
ts 
Ee Ee cr 
ee 
e903 ;ERR 25 
i 0057 D604 14 Em2g ;MSG B1 ERROR 
e312 0057 OT13 
e313 0057 066574 sal tes DF21 
Sale 005740 , EM18 
eas gos74e 064252 DHeb ;AFTER READ DATA CMD 
e218 005746 066574 DF21 
2920 
4 EM24 ;VOL_VALID NOT SET 
By eres ge DH19 !AFTER PACK CMD 
OF 10 
2925 ;ERR 30 
760 060414 EM20 ;MSG B1 ERROR 
obe Oe4e5e DHEG [AFTER READ DATA CMD. 
5356 766 066574 ae a OF 21 
31 oos 352 . M18 ;MSG BO ERROR 
a popes oe peaass Biss ‘AFTER WRITE CHECK CMD 
te 774% 
005776 5 DF21 
Sa3e 060414 sERR 32 420 MSG B1 ERROR 
e337 OOeDDS 064432 Bue . 
cave Beene Geeers nnn wy BE 
2941 O0601 . EM17 ;AOQ_ERROR 
Sau42 pOebiS ated DH22 tAFTER DRIVE CLR CMD 
2943 906014 066050 DT13 
2944 16 066574 DF21 
Saue sERR SY mig BO ERROR 
cs GOED Se09h8 ae , 
2951 0060 060373 ‘ EM19 
2952 0060 064100 DH22 
2953 006034 O66050 OT13 


GOS 





sv Line corres! IN RKMR2 NOT CLEARED 
;AFTER RECAL CMD 


;ERROR 5S 
;CYL_ADDR IN RKMR3 NOT CLEARED 


:AFTER RECAL COMD 
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e954 066574 DF21 
2955 ;ERR 36 
Sage ae sed 
2958 DT13 
2959 066574 OF21 
2960 ;ERR 37 
2961 060331 EM17 ;AO_ERROR 
gabe 064720 DH39 !AFTER WRITE HEADER CMD 
30 DT13 
2964 OF21 
296S ;ERR 40 ne 
ses arpa DH39 
2968 OT13 
2971 373 ; EM19 
is ae 4720 DH39 
7 0 DT13 
Sa5e _— ERR 42 sien 
2376 0061 060414 / EM20 
29 0061 064720 DH39 
e3 9061 0660 OT13 
e3 1 0665 a of OF21 
2981 119 060771 ? EM26 ;BSE ERROR_IN WRITE CMD NOT ON BSE TABLE 
2982 ite #302 DHE? !AFTER WRITE DATA CMD 
eo 116 Beeaas cme ak DF10 
2386 120 060157 ; EMLS ;WCE AT CYL 411,TRK 2, SEC 21 
2988 134 Oeseie DT1 
5380 ‘ ERR 4S wiih 
2991 006130 061364 . EM31 ;PORT NOT AVAIL 
o36138 Obe74e DHS :AFTER TIMEOUT 
0061 44 DF10 
;ERR 46 
149 060717 EM2eS ;DETECTED 10 BAD SECTORS 
142 064302 DHo? :AFTER WRITE DATA CMD. 
iwa 5512 DT 
Bie 
1 
154 
156 
006160 
906 16 
164 
006166 


eEcEEPISLUPRS EELS 


. 
8 
scene aoe sy 


066130 
066630 
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Sah dat 
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at=t={={={={=} 
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: 
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062457 
064227 
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;ERROR SS 


;ERR S6 
;ERR 57 
;ERR 60, 
;ERR 61 
;ERR 62 
;ERR 63 


;ERR 64 


m 9OOM DOOM DVOUMMUDO 

rz NAIT=Z N- 

Se ae eee eee 
oO NW 


4 


900M 
NALz 


NREW— MRD wKWR— rmrR 


Iz 
K—WOW K—WOWD —-WON —WNMW K—WIUN K-WOw 
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;WRONG CYL® IN HEADER WORD (MISPOSITION) 
;AFTER SEEK CMD 


NEGRO EEO oe ono — 


;MSG Al ERROR 


;MSG AD ERROR 
;AFTER READ DATA CMD 


;NO_ATTN 
!AFTER RECAL CMD 


;MSG Al ERROR 


;MSG_AO ERROR 
{AFTER WRITE CHECK CMD 


;MSG Al ERROR 


AQ 


; ERROR 
;AFTER READ HEADER CMD 


SEQ 0059 
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ZR6GB 
2088 060414 Emed 
306 Boesse 064353 ag 
3063 Boesse 066574 OFe21 
30° 10S enshags EMe7 DETECTED BSE IN READ BUT NOT IN WRITE CMO 
7 7 
Ss eee Ber 3 
Se a BREE a 
3075 ;ERR 66 
2078 006340 060352 EM18 ;80_ERROR 
@ 063723 DH17 ;AFTER RECAL CMD 
a 4 066050 DT13 
066574 OFel 
3080 ;ERR 67 
eee er 
Sel BRS: Eee 3 
3085 ;ERR 70 
peelss EM74 ;RTZ_NOT SET 
oe 07 DH41 ;DURING RECAL CMD 
4 5S12 OT1 
30893 066444 DF 10 
3090 ;ERR 71 
3091 006370 061364 EM31 ;PORT NOT AVAIL 
spas Ze 064464 DH3S ;AFTER RLS 
30 74 065512 DOT1 
3094 006376 O66444 DF 10 
3095 ;ERR 72 
3036 006400 061343 EM30 ;PIP_SET 
3097 006402 062676 DH4 ;AFTER ATTN REC’D FROM RECAL 
3038 be 5Sle DT1 
4 S44 DF 10 
3100 ;ERR 73 
310 41 77 EM13 ;NO_ATTN 
31 41 3747 DH18 ;AFTER UNLOAD CMD 
tte 414 065512 DOTl 
3: 416 O6644 DF 10 
3105 ;ERR 74 
3106 006420 060077 EM13 ;NO ATTN 
3107 42e 06327 DH10 ;AT END OF HEAD LOADING 
3108 4 pppoe DTl 
3109 4 444 OF 10 
3110 ;ERR 75 
3111 006430 060457 EMee ;NO DRIVS IN SDEVM 
3lile 006432 pes 9 DH1 
3113 006434 06551 DTl 
site 006436 06631 DF 1 
115 ;ERR 76 
3116 OO644%0 O60S6 EM23 ;NO DRIVS ON BUSS 
3t 17 QO0644e 062540 DH1 
118 OO6444 065512 OT1 
3119 446 066314 DF 1 
3120 ;ERR 77 
3lel O064SO 060331 EM17 ;A0 ERROR 


2 
8 


o 


SFREGM-GBONERLOW-OOBNTULO 


WJWWIWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW WWW) 3 
ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


VEAFZINSSSVERLOR- Gowen Lowe ope 


RK611 DU PORT LGC TST MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 61 SEQ 0061 
“Pll 03-JAN-78 08:46 ERROR POINTER TABLE 
4 742 DHS ;AFTER TMO 
ee eet Bi 
;ERR 100 
006460 EM18 
462 06274 HS 
464 OT13 
466 066574 OF21 
;ERR 101 
006470 060373 EM19 
472 06274 DHS 
474 06605 DT13 
476 574 OF21 
;ERR 102 
509 060414 EM20 
062742 DHS 
B04 OT1 
574 OF21 
006510 061407 sERR 103 432 PORT AVAIL 
006512 Oe3513 DH14 ?BEFORE TMO OR RLS 
006514 06551 DT 
006516 066444 at rower 18 
906529 0331 - EM17 ;AO_ERROR 
3545 DH1S ‘WHILE PORT UNAVAIL 
006524 066050 DT13 
006526 066574 OF21 
;ERR 105 
boeese | peseue ats 
006534 60 DT13 
066574 OF21 
;ERR 106 
S40 73 EM19 
eye 354 DH1S 
44 OT13 
546 066574 OF21 
;ERR 107 
006550 060414 EM20 
552 063545 DHIS 
554 oso DT13 
5 574 we ore! 
006S60 77 , EM13 ;NO ATTN 
S62 063574 DH16 :TO ALLOW PORT TO SEIZE 
564 065512 DT1 
006566 066444 OF 10 
061426 sERR 111 439 ATTN SET 
BoEese 064132 DH23 *W70 REQUEST PENDING 
574 O6SSle DTI 
006576 066444 DF10 
006600 060077 pe BEE NO ATTN 
006602 062742 DHS :AFT TMO 


KOS 
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1 065512 DT1 

3158 BOEEDe 066444 DF 10 

3180 ;ERR 113 

318 006619 1364 EM31 ;PORT NO AVAIL 

318 006618 4109 bHee tAFTER DRIVE CLEAR CMD 

3184 006616 444 DF10 

{Be 1451 se tt em34 ATTN CLEARED 

sen: ' 4 

3187 poepss Deaiee bHeY !BY DR CLR TO OTHER PORT. 

sie3 Soeese BRE Bio 

3130 061426 sgt 115 433 ATTN SET 

3136 Bose Bebe Ob4H64 DHaS !AFT RELEASE ISSUED 

3194 006636 44 OF 1 

3135 ;ERROR 116 

196 OO06640 060041 EM12 ;CONT NOT RDY 

1% eee Sects aS hplinctn 

3199 OO6646 O66444 OF 10 

3200 sERROR 117 

3201 O06650 O60041 EM12 ;CONT NOT RDY 

320¢ O06652 064017 bHeD ‘AFTER SEL DR CMD 

3204 O06656 066444 OF 10 

3205 ;ERROR 120 

355 OOEEED popes a 

3607 D0bbbe O640se DHE ;AFTER SUBSYS CLEAR 

3209 444 DF10 

361 ; ERROR 121 

3612 Dosere Oeselz DHS ;AFTER START SPINDLE CMD 

3214 poee re pepadg DF 10 

3215 ;ERR 122 

3216 006700 060077 EM13 ;NO_ATTN 

3617 006706 Ob4572 DHS? :AFT RLS & REQUEST PENDING 

3219 Oe BET bE 066444 DF10 

3220 ;ERR 123 

ace! 006710 1451 EM34 sATTN CLEARED 

3555 poesia beseie brie ordegedoge cnesen 

3224 006716 O66444 OF 10 

3225 ;ERROR 124 

3226 0067 O41 EMl2 

3287 786 063723 BHI? ;AFTER RECAL CMD 

3629 BOE 726 066444 mist roger to 

3e31 0067 062131 1 EM73 ;CTO SET 

3232 7 23 EM84 !WHILE WAITING FOR OR REC'D CONTR RDY. MSG A&B BAD 

3233 006734 O65512 OT1 


OS 
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3234 006736 066374 


SEQ 0063 


3638 006740 062177 —M79 ;NED SET 
74 2 EMB4 
3538 BoE rus pees 8 OT 
746 066374 
3240 sERR 127 
006 057330 ;MDS SET 
4 B06 EM84 
4 551 DT1 
3245 - peo: ERROR 130 
3246 1500 : ;CERR_NOT SET 
4 7 064511 DH36 :AFT SEL DRV CMD & NO DRA 
48 764 065512 DT 


DF 10 
; ERROR i} 


gne77a peaass a 


;NO_RDY 
;AFTER SEEK CMD 


065512 OT1 

3254 006776 O66444 DF10 
3255 ;ERROR 132 
32 7000 EM13 ;NO ATTN 
325 7002 064227 DH2eS 
3258 7004 O6SSie2 9 

7006 0664 hes 1337" 19 

61 00701 0331 EM17 ;AO_ERROR 

3563 nieegap es 4464 DH3S ‘AFTER RLS ISSUED 
3263 007014 066050 DT13 
3264 007016 066574 DF21 
3265 ‘ all ; ERR 134 wie 
3565 007088 BeOsFE Brae 
3268 7 So DT13 
3269 007026 066574 DF21 
355° oo70 0373 pERR 195 1g 
3e72 Of a 4464 Brae 
3273 «OC 7034 0660 DT13 
3274 7 066574 DF21 
3275 ;ERR 136 
3876 OC 40 0414 ENe0 

ue 4464 H35 

007) 06: OT13 
350 atten ocppate: ERROR 195°! 

, 

00 1 M39 -CYL DIFF/OFFSET IN RKMR2 NOT CLEARED 
3565 BSS Bes pe4823 prise , 
3283 907054 065512 DT1 
3684 7 066444 ae wor 9 
3e 007 060331 y EM17 :MSG AD ERROR 
3287 0070 065433 DHS 1 ‘AFTER SEEK TO SELF 
3288 007064 066050 DT13 
3289 007066 066574 DF21 
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BESS 
= SogG 


88 
NNN 
SLO FeO KEV KEV wewo K2VS cana 


i) 
w 
@ 


Ses SSc8 S888 SeS§ See8 SSke Sess 


See eee 


F2NS FIV 


cegeanccecsus uaa iaess 


Patatatnt ata agAyAy An ate 
¥ Det he be ee ee be pe 
WNM-OWONTULCWN-O 
uh gue gee cel eel eel eel coed eel eel oe ed ed ed dd ddd 


0071 
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060352 
065433 


060373 
068433 


MOS 
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ERROR POINTER TABLE 


ov00MmM 
nS 

fur Ul 
—Weo 


;ERR 142 


Ea 
ue 
-—oO 


;ERR 


m oo 
=z nH 
i me 


mea =) 


2 
;ERR 
37 ;MULT ATTN 
S ;AFTER TMO 


oom 90 


a 


; ERR 
2 ;AO_ERROR 
‘AFTER SEEK & IMMED RELEASE 


900M 
NaArtz 
Mr 

=—-WOn 


;ERR 


o00M 


;ERR 


NArSZ NALS 


;ERR 1S 


Oo 
o00mMm 9FV0OM 


Baz 
rotor 


—-WOO —-WOW ~-WwOoOo 


;ERROR 151 
M ;NO_RDY 
He ;AFTER CLEAR CMD 


;NO_ATTN 
:AFTER SEEK & IMMED RLS 


;RE-TRIGGER NO GOOD 
;AFTER RE-SEIZE MIDWAY THRU TMO 


0 
;ERROR 154 


CZR6GBO RK611 PORT GC TST MACYI11 30A(10S2) -JAN-78 08:56 PAGE 65 
eSRece. Pil B3-5AN 08:46 INTER TABLE 


ERROR PO 
2 007882 ee Oes106 Hey ;ATTN NOT CLEARED 
7 bee 1 OT1 
bo7eee 066444 DF 10 


SEQ 0065S 


CZR6GBO RK611 DU PORT.LGC TST MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 66 
CZ2R6GB.P11 O03-JAN-78 08:46 ERROR POINTER TABLE 


EL RUE BeleTs px SOPEaEY Ate TANT Ea Sd" 


CZR6GB0 RK611 DU PORT LGC TST 
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4 
3358 


: 


SSEPRRARUSeLSuR Lagat: 


rhe eres etd 


ff 
BOWE 


Ww 


007236 


066444 


CO6 


MACY11 3 lf BSED UNTER Taal 08:56 PAGE 67 


DF 1 
;ERR 156 
;NO_ATTN 
piles ;AFTER SEEK CMD 


EM31 ;PORT NOT AVAIL 
Hes ;AFTER SEEK CMD 


;ATTN SET 
H38 ;AFTER SEEK & IMMED RLS 


oO 


;MSG_AO_ ERROR 
!AFTER SEEK CMD 


oom oom 
iD roto = ——tW) 
KWUIDO §—WUIW KWUIOD —WwUuIN iG) 


Safa 9 
-— Tu-forM 


;MSG AD ERROR 
;AFTER TMO 


Bo25 
tur 
—-W N 


;ERR 167 


i= roi 
o WW 


ba 4h oo00M 
par 
Ww 


Meu TRE 
o 


; ERR 


hoe 

N 

Oo 
o00M 
N+4T sz 


SEQ 0067 
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PEPE PALL S LPLLS VIS Vee eee Tee 
pS as ate anton & 


344s 


Borare 
7374 
7.376 


ree 
sere 


MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 68 


ERROR POINTER TABLE 


;ERROR 171 
;ERROR 172 
; ERROR Beto 
;ERROR 1 
;ERROR 175 
;ERROR 176 
;ERROR 177 
;ERROR 200 
; ERROR Frat 
;ERROR 202 
;ERROR 203 


;ERROR 204 


;NO_RDY 
;AFTER READ HEADER CMD 


;PORT NOT AVAIL 
:AFT RELEASE 
;DLT SET 


;CERR SET 


;CYL_DIFF_NOT CLEARED 


;AT END OF HEAD LOADING 


;CYL ADDR NOT CLEARED. 


;PORT AVAIL 
;DURING RECAL CMD 


;NO_RDY 
;AFTER WRITE HEADER CMD 


;CERR SET 


;READ HEADER ERROR 


;PORT NOT AVAIL 
;OURING RECAL CMD 


VAIL-TIMERS NOT INHIB 


SEQ 0068 


CZR6GBO RK611 DOU PORT LGC TST MACY11 30A(1052) O3-JAN-78 08:56 PAGE 69 SEQ 0069 
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0 
0 
0 
0 
; ERROR — 


0 
0 


0 
sERROR 206 
- EM36 ;CYL_ADDR_IN RKMR3 INCORRECT 
DH2S ‘AFTER SEEK CMD 


EM36 ;CYL_ADDR_ IN RKMR3 INCORRECT 
DHeS ;AFTER SEEK CMD 


;CERR SET 


1 

1 

1 ;MSG_AO ERROR 

3 !AFTER RLS ISSUED 





;ERR ele 


eReS TEAST ET Tita SERERERERR GT GS 


ae 

<= 

<£ 

io 

£ 
im oOOM 
=z N3ArzZ 


;ERR 213 


Suz 
Mr) 


;ERR 214 


220 
toto 
-WulO 


ae URS SELL RETA TSS ESESISSALE ESAS ERED 


;ERROR 2 


ul 





Sear 
WONOU LW 


1 
0 
0 
0 
0 
; ERROR = 
0 
0 
0 
1 


atatytutataotatatatal 


8 


;ERROR 217 
0 


8 
oo 
& & 
8 
5 
8 


RK PORT LGC TST MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 70 SEQ 0070 
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3522 7652 o00000 0 
3253 Bovese 0On0D - 
3525 ; ERROR 220 
3259 ° 
0 
0 
;ERROR 221 
EM17 ;MSG AO ERROR 
DH17 
= ce 
Fel 
;ERROR 222 
3238 ENS ;MSG AL ERROR 
35. DT13 
3533 Bedi 
4 wey ora CERR SET 
3eqs DH? :AFT SCLR 
3543 OT1 
ue ERR 224 10 
j M36 ;CYL ADDR IN RKMR3 BAD 
3eu9 Bris :AFT SEEK CMD 
3248 DT4 
354 OF6 
35 ;ERROR 225 
35 0 
35 0 
35 0 
35 ¢ : ERROR 206 
Ef : Fie ;NO_RDY 
38 Dlice ;AFTER READ DATA CMD 
ss ERROR opp? 
1 907750 060435 , M21 ;CERR SET 
ss Girres Bestrs pie 
3eee ERROR 240'° 
: M ;CANNOT READ BSE INFO 
6 BOT oeS 42 aris :ON SEC 10, le, 14, 16, 18, 20 
3268 007768 065512 DT1 
356 766 066524 DF17 
3970 ; ERROR 231 
357 777, 000 0 
3573 7774 0000 0 
3574 007776 00 0 
3575 ;ERROR 232 
3576 010000 0000 0 
3577 010002 o00000 0 
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aia al apres 


010040 012737 o00001 
010046 o00402 
19950 905037 001336 
81 5 12706 4100 
ee = 
ee Hes a 
0106. 1 aue 10074 
010072 oo0002 
010074 004737 052260 
3610 
3611 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
30 
3e53 
3623 
3624 
3625 
6. 101 0127 001100 
101 
101 001140 
3629 010112 001374 
3620 010114 012706 001100 
3632 010120 012737 
3633 010126 012737 


MACY11 30A(10S2) 


001336 


050366 000020 
000340 o0002e 


O3-JAN-78 08:56 PAGE 
ERROR POINTER TABLE 


0 

0 
;ERROR 233 

EM16 


DHY4e 
OT1 


DF 17 
;ERROR 234 


71 


; CANNOT _READ st INFO 
;0N SECT 0,2,4,6,8 


0 
pti orreS ALIGN CARTRI E 
Br ath an BYPASS Pee MAT p ALL R/W TESTS 
DF 10 
.SBTTL PROGRAM SETUP 
PARSRT: MOV #1, PARAM ;SET FLAG FOR 220 START: INPUT PARAMETERS 
BR PRGSRT :START PROGRAM 
TART: CLR PARAM TART, 
Brocrt: RESET vein SLE at LL I INT ENABLE & INIT 
MOV ePRO, Keb) i gel ie TO ap Ter 
MOV $,-(SP) :LSI- i COMPATABLE 
RTI :ENABLE ALL INTERRUPTS 
1s ISR PC, STKINT ;SETUP KB VECTOR_ADDR, PRIORITY 4 
:& TURN KB INTERRUPT 
; 8% CPU PRIORITY LEVEL NOW AT O *¥# 
2 ae ANY DEVICE WHICH SETS ITS EX 
2 aie E BIT WILL HHH 


$ aeaet 


;CLOCK INTERRUPTS WILL CHANGE CPU par get ty TO LEVEL 6 (IN _’STS’ 


;RKO6 CONTROLLER I 
;KEYBOARD INTERRUPTS WILL 


;ALL *’SYSMAC’ TRAPS WILL CHANGE CPU PRIORITY TO LEVEL 7 (SEE BELOW) 
tame *SETUP’ 


NTERRUPTS WILL CHANGE C 


CHANGE CPU PRIORITY TO LEVEL 4 (SEE ABOV 


- SBTTL NIT IAL IZE THE COMMON 
;;CLEAR THE COMMON TAGS (SCMTAG) AREA 
MOV BSCHTAG, Ro ;;FIRST LOCATION TO an CLEARED 
CLR (R6E)+ 3; CLE MORY LOCATIO 
CMP sSUR, 33 ? 
;;LOOP BACK IF NO 
Pp ::SETUP THE STACK POINTER 


ss INITIALIZE A rig vect C+3ks 
SSSCOPE , JNIOTVEC 
ov #340, a8LOTVEC+2 ; 


$5207, VE VECTOR FOR SCOPE ROUTINE 


SEQ 0071 


PU PRIORITY TO LEVEL 5) a cal ) 
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aera ara as 


g Po 
SBOIERE 
000 
O00000 
eros 


g 
ON00000000 
4 Sz es 


be ba be be be be be Pm heh 


Se PaRzzES Repos SERIES RISES 
= 
ge 
5 


012737 
3660 012637 0004 
3ee2 005037 001216 
3663 737 
3664 1403 
S 1e7, 001232 
127 0414 
36 rt 340 
23 012701 172100 
3e72 0372 ooeor 000001 
73 376 O1e7 024 
3e54 Bao8 BI 7 340 
3675 000401 
3676 
¢ e579) 
378 12? T7e1%0 
36 001360 


nee 
000 000000 9200000 O2000000 200000 GO0000 
S2 Seeee? FZ 


ed ed od dd ee ee ee ee 


an RBs 
B= 
ON 
SS 
88 
t=] 
re 


7 
004737 30 
3685 00S037 O01e20 
3686 04 005037 OOleee 
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oo0004 


INITIALIZE THE COMMON TAGS 


ft “/ se tue is VECTOR FOR ERROR ROUTINE 


es FOR TRAP CALLS 


MOV 
Vv RAbvECE L tiv 

MOV ; HER FAILURE VECTOR 

MOV $340 suede Sepsis ive 

MOV NOCT, SEOPCT a air PROGRAM COUNTE 

CLR IMES * INITIALI 5 NUMBER OF TTERAT IONS 


a ren 


3 3SI a 
;;EQUAL TO A whe 
400 ane 4 ISPLAY RECISt 
EE ah A 


BR 6S$ ::BRANCH IF NO TIMEOUT 
64S: V #6S$, (SP) ;;SET UP FOR TRAP RETURN 


RTI 
65S: nov SWREG, SHR R spray? #POINT TO SOFTWARE SWR 
66S: MOV sD 1S SSERAVES ;;RESTORE ERROR VECTOR 
CLR SPASS ;;CLEAR PASS COUNT 
BITB #APTSIZE, SENVM i: TEST USER S SIZE UNDER AP 
BEQ 67S ;3YE T SWITCH 
ee MOV #SSWREG, SWR > :NO, Suse APT SHITCH REGISTER 
MEMPAR: MOV als ERRVEC ;SETUP TIMEOUT VECTOR 
MOV ? ERRVEC+2 
MOV sMEMBAS Rl ;ADDR_OF ME 
3S: CLR (Rl) ” ; SEE IF CAN "REFERENCE 
MOV #1, (R1) SET ENABLE BIT IF YES 
MOV aMEMERR MEMy VEC i ‘LOAD VECTOR IF NO TIMEOUT 
MOV ae 7,MEMV 
1$: (SP)+, (SP)+ ADs STACK 
33: ADD ‘2 Ri x 
cHe Ri; RMENBAS+40 cee EF TRIED ALL 
MOV r RAVEC#2, ERRVEC’ NO RESTORE TRAP CATCHER 
CLR ERRVEC+2 
JSR PC, CLRFLG ;CLEAR DDUMP THRU UNITB 
cLR SDEVcT 


i FIND OUT IF XXDP, ACT, APT; CHAIN OR DUMP MODE 


SEQ 0072 


06 


one O3-JAN-78 08:56 PAGE 73 SEQ 0073 
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3690 : 

3691 

363¢ 10456 00S737 oo0042 START1: TST 42 

36 1 001014 BNE 1$ ;BR IF AUTO 

3694 O10464 004737 3046 ISR PC, TITLE :MANUAL, TYPE PROG ID 

3636 910470 bearer Bdab4t 000013 CMPB 41, #13 :13=LOADED BY XXDP 

3eg9 o1 37 gos4eH f é DUMP i SET RKO6 DUMP 

3698 Ol 104401 7 TYPE MSG2 *REPLACE DRO PACK Oe / SCRATCH & DO<CR> 
3639 10510 000137 010524 IMP $T2 

700 10514 0001 010570 1$: IMP ST3 

2 10520 005237 432 2s: INC PPTp ;SET ACT/APT/PTP DUMP MODE FLAG 
3703 

3704 CHECK IF ALL PARAMETERS DEFAULTED. IF NOT, BEGIN INPUT DIALOGUE 
3705 ‘WITH OPERATOR. THE REPLY TO "DRIVES TO 0 BE TESTED? SHOULD BE 
3706 3 DRI VE NOS. SEPERATED BY COMMAS & TERMI NATED. BY <CR> 

3707 EX: DRIVES TO BE TESTED: 0,2,4 

3708 FOR DUAL PORT, ONLY EVEN NUMBERED DRIVES must BE TESTED 
3710 010524 005737 001336 bro: TST PARAM 

3711 010530 001002 BNE 1$ ;B8R_IF 220 START 

371¢ 1 000137 010622 IMP ST4 :200 START, DEFAULT & SIZE THE BUSS 
371 1 3 1Oowsg 055776 1S: TYPE MSG3 : DRIVES TO’ BE TESTED 

3714 61054 7 043126 JSR Pc. GDORVS DR_NOS. 

3715 010546 104401 056051 TYPE mSG4 *BUSS ADDR 

3718 1055¢ 004737 043274 ISR Pc, GBA :GET BA 

371 10556 104401 056103 TYPE MSGS :CONT INT VECTOR 

3718 010562 004737 043322 ISR PC. GINT :GET INT VECTOR 

3719 010566 000427 BR sts 

3720 
3721 

3722 AUTO M 

723 j CHECK ore at Ong DED BY XXDP OR OTHER. SET FLAGS & NO INPUT DIALOGUE. 
724 : DEF PARAMETERS. TEST ONLY THOSE DRIVES THAT ARE READY 
3725 ON THE B oss 

as : 

37 10570 123727 oO0041 000013 ST3: CMPB 41, #13 ;13=LOADED BY XxDP 

3758 pi bese b5 i007 BNE 1$ 

3730 010600 005237 ooSs4e6 INC DDPCH ;SET RKOG CHAIN MODE FLAG 

3731 010604 004737 043046 ISR PC, TITLE 

7 010610 1044 056205 TYPE MSG? ;DRO NOT TSTD 

7 6010614 o004 BR Sty 

3 010616 0052 005430 1S: INC ACT11 ;SET ACT AUTO FLAG. 
3736 Ol 12737 177440 001264 ST4: MOV #177440,$BASE ;DEFAULT VALUE 
3737 013636 e737 909219 001314 MOV 8 RKVEC :DEFAULT VALUE 

37 1 7 043354 ISR PC, SETINT 

3739 010642 005237 O00S462 INC SI2FLG ;D0 “SIZE THE BUSS” TEST 

74 1 76 STS: CLR UNLD ; INITIALIZE _FLAGS 

74 Bt ees 7 00 CLR BADHOR tUSED IN 'STOP’ ROUTINE 

3743 O10656 005037 005302 CLR HPEND :FOR VALID PROGRAM HALTS 

3744 010662 005037 001176 CLR SESCAPE 

3745 010666 005037 001172 CLR STMPS ;CLEAR RKO? FLAG 


ae 


WW WWWWWWWWWW) 
out 


JO6 


RK611 DU PORT LGC TST MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 74 SEG 0074 
1 03-JAN-78 08:46 INITIALIZE THE COMMON TAGS 
010672 0 2737 005436 001342 MOV BORIVO,ORVPTR ;SETUP 
10 001220 CLR S$DEVCT :NO. OF DRVS DONE 
teres Opens Boses ce nite Soma” Per Mame TEST | 
10714 il 101 OS6560 MOVB #’A,MSG19A :PORT A_TESTING | 
107 1 37 10770 oo0004 MOV #1$’ ERRVEC :SETUP TIMEOUT ERROR VECTOR 
ib? oo bosus a iBRESENT. SES FLAG. 
10740 01 1330 MOV LCVEC,RO :VECTOR ADDR - 
1 127 oo0004 MOV 82S, ERRVEC 
ib7ee 45 hosaeo Ine e ieeEctnr’ SET FLAG 
10762 913709 001332 nov PCVEC, RO :VECTOR ADDR 
01 022626 1S: CMP (SP)+, (SP)+ ;L-CLOCK NOT THERE, CLEAR STACK 
0107 012737 011032 oo0004 MOV #4S. ERRVEC 
il 0057 170314 TST aPKs ;SEE_IF_P-CLOCK THERE 
11 37 0054 INC PCLKF ‘PRESENT, SET FLAG 
etree 13700 C013 MOV PCVEC, RO > VEC 
11014 012720 047154 3S: MOV #CLOCK, (RO)+ :SERVICE ROUTINE FOR CLOCKS 
011020 012710 000300 MOV #PR6, (RO) 
011024 000407 BR TSTl ;;GO TO NEXT TEST 
011026 g22G26 2s: CNP (gP)+, (SP)+ ;P-CLOCK NOT THERE, CLEAR STACK 
011032 4S: CMP (SP)+, (SP)+ ;NEITHER CLOCK THERE, CLEAR STACK 
611034 14401 056360 Type giisgis !NO CLOCKS PRESENT TESTS BYPASSED 


| 
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377 
377 
3780 
781 
3782 
3783 
3784 
3785 
3788 
787 
3788 
3789 
rae 011044 
791 011046 
3739e 011054 
37933 
3794 011060 
3795 011064 
3733 011070 
33 011072 
3349 sete 
3800 Biit 
3801 011104 
3B0¢ Bi iiie 
11114 
3804 Ri tisa 
3 811130 
3807 011134 
3808 Rition 
3803 O11144 
3810 Bt 1130 
3811 011154 
seis 011160 
3813 011164 
3814 011170 
3815 011174 
3816 
3817 011200 
3818 011206 
3819 Ol1e14 
3820 
3821 011216 
38ee Olle2e0 
3823 Olleee 
3824 
3825S 
3826 
3827 
3828 
3829 
3830 
3831 
3832 


000137 


000001 
001100 


000000 
011072 


11216 
bakes 
00 


ates 


eee 
oo003e 


047736 
000340 


042704 
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001174 


oooo04 


oo00c04 
000006 


08:56 PAGE 75 
BASIC CONTROLLER TESTS, SIZING & SETUP 
-SBTTL BASIC CONTROLLER TESTS, SIZING & SETUP 
pieepeponnnenacssqoncessemeeee ae 


; ATE REFERENCE ALL CONTROLLER REGISTERS 
i THIS TEST VERIFIES THAT ALL THE CONTROLLER REGISTERS 
1 CAN ACCESSED. INABILITY TO BE ACCESSED WILL 
+ RESUL A TIMEOUT TRAP WITH AN ERROR MESSAGE. bhy 
$% ERR OR 1H THIS TEST WILL eRESULT,, IN. N ABORTING ALL OTHER 
3s ESTS AND JUMPING TO ’ 
; a PREY RENEE Teen = 
MOV a! STINES ; ITERATION 
MOV aStac + heer ORE STK PTR 
MOV #PRO, ~eane ;RESET PSW TO PRIORITY O 
nov #5$,-(SP) :& MAKE IT LSI COMPATABLE 
S$: 
MOV #1$, ERRVEC ;SETUP TIMOUT ERROR VECTOR 
MOV $BASE RS :SETUP_INDEX REG. 
TST RKCS1tRS) ?REFERENCE ALL THE 
TST RKCS2(RS) ?CONTROLLER REGISTERS 
TST RKWC (RS) 
TST RKBACRS) 
TST RKDAC(RS) 
TST RKDS(RS) ;TIMEOUTS IN THIS SECTION 
TST RKER(RS) ‘INDICATE THAT THE CONTROLLER 
TST RKASOF (RS) REGIST CANNOT READ. 
TST RKDC(RS) * TESTING ULD NOT PROCEED 
TST RKDB(RS) :UNTIL THIS IS REMEDIED. 
TST RK 4¢RS) 
TST RKMR2(RS) 
TST RKMR3(RS) 
TST RKECPS(RS) 
TST RKECPT (RS) 
MOV WBADTMO,ERRVEC ;SETUP TIMEOUT HANDLER 
MOV #PR7, ERRVEC+2 
BR TST2’ ;;GO TO NEXT TEST 
1S: CMP (SP)+, (SP)+ ;RESTORE STACK POINTER 
ERROR 7 tABORT-COULD NOT REFERENCE CONTROLLER REGISTER 
IMP SEOP1 
. = PERKS KR KRESS RE RRA REARS RERARAAARAKKARAKKRKKKRKAKARKKE 
; AT T2 SIZE THE BUSS 
1% THIS TEST IS ENTERED ONLY IF ’DRIVE SELECTION’ IS DEFAULTED 
i Rana BY RUNNING IN THE AUTO MODE OR A 200 START IN THE 
+x EVERY EVEN N NUMBERED DRIVE (0,2,4,6) IS ADDRESSED. 
1 CONTROLLER ERROR (CERR) IS EXAMINED AND IF NOT SET, THE 


SEQ 0075 
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03-JAN-78 08:46 Te SIZE THE BUS 
+ Wd AS RK T, THE PROGRAM WILL BYPASS 
3635 i* TESYING The wbR Rive ONLY f THe ERROR HS" a g RESULT oF | 
? te CATIN NG. THE OUER PORT I 
3538 iH stat "3 HER maf Races sp conch AS AN RKO7. 
389 4 teed” apnea es ->gigaatagastcannsbagsace tm ciate 
011226 OO00004 +673 SCOPE 
3842 011230 012737 000001 001174 MOV #1 STIMES ; ITERATION 
43 011236 Ole706 001100 MOV Stack, iAP Crore Stk PTR | 
45 011242 005237 O014S6 INC BYPCERR ;D0 NOT DO ’CKCERR’ ROUTINE 
3eu9 
3848 011246 13273? 000200 001231 BITB #8177, SENVM i BEE IF, USE APT SELECTED DRIVES 
§ 011254 1002 BNE 14 
80 11256 000137 011420 IMP 128 Ese DO NORM SIZING OR VERIFY 
11 73 14S: TYPE MSG10 MI IVES 
3553 611266 pRessa cLR bRIVS 4 OF pRIVES PRESENT 
11 127 S436 MOV #ORIVO,R1 
3656 Bt is20 Bis5 Bocce MOV abev0,8 BEY FLAG MAP 
3858 011304 032702 o00001 1S$: BIT #81T0,R2 ;SEE IF DRV IN DEVICE MAP 
3859 011310 001420 BEQ 16$ ?BR IF_N 
3860 Olisie 27; 000001 CMP #81TO,RO Bee, IF 9 ‘p00 # DRIVE 
38 1131 14 BEQ 115 
3863 011320 104401 061167 TYPE ,EM28 sONLY EVEN # ALLOWED IN SDEVM 
864 011324 009 HALT j RELOR ,SDEvn & PRESS ’CONTINUE’ 
se tine opera Goes us: fae BRS" Fae Thee, ORAVE_counT 
3Be9 11336 11 . N (R1) ie se, ne ve BYESERY FLAG 
3868 011340 104401 oo1205 TYPE S$CRLF 
3868 011344 O1004 MOV RO, -(SP) Bie oe TYPEOUT 
71 O113 104403 TYPOS >:G0 -- ofa ASCII 
3872 pt i3eo 001 .BYTE 1 >: TYPE 1 
3873 011351 000 BYTE O ++ CUPPRESS TOOTING ZEROS 
75 O11 16S: CMP (R1)+, (RL)+ ;ADV PTR TO NEXT EVEN # 
76 Bt t3eq 54 ooo0002 ADD #2, RO ?ADD ORV ADDR, TO NEXT EVEN * 
77 011360 2700 O00010 CMP #8: ,RO 7ALL_4Y TES ED? 
3878 011364 1402 BEQ 178 ?BR IF Y 
3880 O11 600. ROR R SEL T NEXT BIT OFF DEVICE MAP 
3881 611398 Boars BR Res if Phy adalh 
3883 011372 737 005434 17S: TST DRIVS ;SEE IF MORE DRIVES PRESENT 
3884 011376 001402 BEQ 18$ ; 
3368 011400 000137 012076 IMP VERIFY :ELSE EXIT TEST & SETUP FOR RKO7’S 
bg 011404 104075 18S: ERROR 75 ;NO DRIVES FOUND IN SDEVM 
3888 011406 O00000 HALT :SETUP CORRECTLY & PRESS *CONTINUE’ 
3889 011410 000137 O10646 IMP STS :TO TRY AGAIN 
| 


| 
| 
! 


CZR6GBO RK611 OU PORT LGC TST 
CZR6GB.P11 03-JAN-78 08:46 


000137 012076 


rdestected 
8 
2 


30 11420 o1e7e oo0040 
11426 0137 001400 
34 011434 7 043466 

ties 1 

3896 01144 737 OO0S462 

3897 11988 1762 

3898 0114 O4401 056273 

3899 011454 37 005434 

St BLISS FARE cosuse 

3903 011466 104415 

3300 11470 012706 001100 

3906 011474 012765 40 

3907 011502 013737 001400 

11510 aH 043466 
SRLS APEKEE coco, 

ii Glies Bibs, BaSs 

sis See Gravee Buire 
14 44 37 1412 

sie Giles Beir Biles 
1 137. 14 
ra th4 564 004737 3466 


Rend 
_\Q= 
~ 
N 
i 
gE 


DOOO DOOOOOOOOOOOOCOOOOCOOO0O0000000 G0O00000000000 


ll 
11 
11 
11 
1l 
i} 

: + 1 i 7. S34 
332 GLIBID GNerar 77770 
3924 He ao1050 
33ee Olibse GOIN) 
3928 11634 00101 
3929 11636 o00Se 005434 

$30 11642 ny ll 

31 11644 3711 001170 
3932 11650 104401 001205 
Sate 116S4 0O10046 
3935 11658 104403 
333 Gileeo | OO) 
aa38 11662 o0o0403 
et aliths mea oreo 
S43 011672 oee121 

$43 O11674 962700 gon09 


MACY11 30A(10S52) 
Te 


000010 
00S3S2 


000010 
005352 


00S314 
005314 
000000 
00S3S2 
005314 


00S3S2 
00S352 


20$: 
12S: 


1S: 


4S: 


3$: 


S$: 


O3-JAN-78 08:56 PAGE 77 


SIZE THE BUSS 
IMP VERIFY ;00 NOT SIZE, GO TO NEXT TEST 
MOV #SCLR,RKCS2(RS) ;SUBSYSTEM CLEAR 
iam a Nl 
ERROR 120 : Y NOT SET BY END OF SCLR 
TST SIZFLG ig Bus? 
BEQ NO 
TYPE MSG10 ‘WILL TEST DRIVES 
cLR bRiIvS #_OF DRIVES PRESENT 
V SBRIVO, RI i BRY L 
SCOP1 
MOV #STACK, SP ;RESTORE STK PTR 
MOV #SCLR,RKCS2(RS) ;SUBSYSTEM CLEAR 
MOV T10, TEMP1 $35 TIMEOUT 
ISR PC, FRDY NO ROY 
ERROR 180 Bay NO T BY END OF SCLR 
MOV RKCS2(RS) :8 LECT THE DRIVE ADDR 
MOV #SELORV,HCS1 
BIS STMPY, HCS1 ;ADD CDT_IF RKO7 
MOV HCS1,AKCSI(RS) GET STATUS 
MOV TS0000, TEMP1 
JSR c, OLY ;D0 DELAY TO CATCH MDS 
MOV TiO, TEMP 
JSR PC. FRDY ;FIND RDY 
ERROR 11? :NO RDY AFTER SELECT DRIVE CMD. 
IT SCERR, ,HCS1 
NE 2 
Be HRCCONTrenms 
M <oryi ;S/B SAME 
BNE 
TST R 
ist DDPCH ;SEE IF XXDP CHAIN MODE 
INC DRIVS ;INC DRIVE COUNT 
INC (R1) :SET DRIVE PRESENT FLAG 
BIS STMPY, (RL) :ADD CDT IF RKO7. 
TYPE SCRLF 
MOV RO, -(SP) 3398 RO FOR TYPEOUT 
TYPOS } GO TYPE--OCTAL ASCII 
*BYT A $TYPE 1 01 CE AGING ZEROS 
BR Ss 
R PC, BYP ;TYPE_BYPASS DR 
ZREOR x . PURTTTEN # DOES NOT MATCH RKMR2 DR # 
CMP (R1)+, (R1)+ ;ADV PTR TO NEXT EVEN # 
AD te RO’ : ADV DRV ADDR TO_NEXT EVEN # 
cL MPY CLEAR FOR NEXT -TRY 


SEQ 0077 


SRece-Pii | O3-JaN-78 08:46 


oe 


dono ns Bee we _— 
0000 900000 928000 0200 0200 2000000000000 
ny ee re ee ne ee ee ee ee ee ee ee ee eT ee ee eer re ee ee ee ee ee ee 


Sei TES 


hee bh ee 


Bes Bee Bes Sees 


furur 
Soe 
NN 

Moo 


Oo 
ray 
tu 
Oo 
N 
o 


022700 000010 


Be ome 


044260 
044260 


010000 
oS6462 


044260 


000137 Ole472 


MACY11 oo 


00$330 
001170 
005316 
005316 
005326 
00S316 


005316 


2s: 


6S: 


9S: 


10S: 


VERIFY: 


03-JAN-78 
SIZE THE BUSS 
CMP #8. ,RO 
BNE 1$ 
TS DRIVS 
BNE os 
ERROR 
HALT 
IMP sts 
BIT #OTYE,HER 
BEQ 1 
MOV #COT, STMPY 
IMP 
BIT #MDS, HCS2 
BNE 
BIT #UFE,HCS2 
BNE 7$ 
BIT #DRA, HDS 
BNE 8s 
BIT #NED,HCS2 
BEQ 38 
BR ss 
JSR PC, BYP 
ERROR 2 
BR S$ 
ISR PC, BYP 
ERROR 3 
BR S$ 
BIT #NED, HCS2 
BEQ 4 
TYPE MSG1S 
MOV RO, -(SP) 
TYPOS 
.BYTE 1 
“BYTE O 
ERROR 10 
R S$ 
JSR PC, BYP 
ERROR 
BR 5 
IMP NUDRV 


oa 5 Bees IS_ENTER 


EVERY 


;UFE DETECTED 


08:S&6 PAGE 78 


; TESTED ALL 4 DRIVES? 
BR IF NO 


;NO_ORIVES cae ON BUSS 


; SETUP CORRECTL 


;AND PRESS CONTINUE? 


ADD COT 
i TRY AGAIN 


; TYPE BYP OR & 


;MDS DETECTED. 


; ORV 
is SAVE RO FOR TYPEOUT 


;NO DRA & NO NED = 


ONLY 
VEN as 
CONTROLLER ERROR (CERR) 
PROGRAM WILL ASSUME THE 


TYPE D 


Re 
:§G0 TYP ars ei ASCII 


TYPE 1 DIGIT(S) 


:SUPPRESS LEADING ZEROS 


sABUPE 


NED BOTH SET 


OTHER PORT SELECTED 


36 HE AE HEE HE ME HE HE AE HE HE HE BE A HE 0 9 SE HH SH a HH HE 
T3 VERIFY OPERATOR DRIVE SELECTIONS 


BERED DRIVE (0,245 IS NOT 


6°48 t eet 
barve™ te NBRESENT AS AN "awoke 


6) IS cates & 


SEQ 0078 


nn 





CZR6GBO RK611 DU PORT LGC TST MACY11 30A(10S2) 03-JAN-78 08: PAGE 79 SEQ 0079 
CZR6GB.P11 03-JAN-78 08:46 T3 oi OPERATOR DRIVE SELECTIONS 
4002 :% T, Tuat Puss WILL BE BYPASSED 
4003 1a oh FT T rele T OF MOS OR UFE SET OR BOTH 
4004 1 a IF CERR IS A RESULT OF 
400S $x NED ONY, ¢ CHECKE PORT er THE INPUTTED TREORMATION TO 
4006 * i VERIFY SPECIFIED. 
4097 # F CERR ie 0 NOtveE, IVE WILL BE TESTED AS AN RKO7. 
4009 4 = LEKKKRKREEKEKREREEKRKSSARRRAARRRRRRRERRRRHRRREER REA ARERA RRR AAKRREE 
4010 012076 o00004 +473: Sc 
4011 Olel 12737 000001 001174 MOV #1 STIMES : TERATION 
uole 016108 MOV aStAck, SP iheSroRE St STK PTR 
401 121i CLR RO :D 
uo1a tells as MOV #ORIVO,R1 BRT PERG 
4016 18180 SCOP1 
u012 121 MOV sSTACK, SP ;RESTORE STK PTR 
aot3 12126 MOV #sCLR RKCS2(RS) ; SUBSYSTEM CLEAR 
4020 1213 HOV 0, TEMP TIME OUT 
181 ERROR pe tro iia? AFTER SCLR 
4023 Olel MOV RO, RKCS2(RS) 
uog4 131 MOV ase ORV, HCS1 
lel BIS 5 MP4 H¢S1 en CDT IF RKO7 
W0ee 1¢1 MOV RKES1 CRS) :GET STATUS 
4 1 MOV T , TEMP 
i JSR PC DLY ;D0 DELAY TO CATCH MDS 
l2ei MOV rio TEMP 1 
1221 JSR FROY ;FIND RDY 
403 1 ERROR 11? :NO RDY AFTER SELECT DRIVE CMD. 
i BIT #CERR,HCS1 
u 1 MOV 2, TEMP 
4035 Ol BIC atC<DRVSK>, TEMP! 
4 i cNe RO, T MP1 ;S/B SAME 
4 1 11S: TS (Ri) 
4039 1 BEG 4 
4 1 gIS STMPY, (R1) ;SET RKO7_FLAG 
404 le 4S: cue (R1)+;(R1)+ 3 ADV PTR TO NEXT EVEN 
ae 1 ADL #2,RO ADV DRV ADDR TO NEXT EVEN # 
4 12274 CLR STAPY ‘CLEAR FOR NEXT DRIVE 
wows 12309 cn #8. ,RO 
dOue 15300 R T4 +;GO MORE ONE NEXT TEST 
12310 3S: JSR PC, BYP ;TRY_BYPASS DRIVES 
: 3i8 RROR ‘on ‘WRITTEN OR# DOES NOT MATCH RKMR2 DR#® 
405 18320 BEQ 4S ;BRANCH IF NOT SPEC BY INPUT 
4 1 12S: DEC DRIVS :DECREMENT TOTAL DRIVS 
le CLR (R1) ?CLEAR DRIVE FLAG 
4054 1 BR 4§ 
4056 012332 032737 OO0D40 005330 2S: BIT #OTYE, HER 
4057 012340 001405 BEG 13$ 


CZR6GBO RK611 DU POR 


CZR6GB.P11 


— Ole34e 
9 Ole 


4064 
4065S 


So00 
Voli? 
O00 9200 0200 OCOD DO000000000O 


Re Rh he he eh fh fe Fp fo 


S555855 
383308296 


BOIFALOVH OD 


SESLSSESISCLSISSCLII£ 
ee eee eee OO 


etd 
Wwrur-oO 


= 


we 
£ 


rr 
Wu 


2n 


a 


-_ 
£ 


B55 SHE BN: 
BS 
ne 


2 yey pyyyy 


Pe? Py 
ork Sen ae 


012472 
012476 


O1es0e 


012737 
000137 


005037 
005037 


oooo04 


03-JAN- v 76 be: 46 


002000 
012120 
001000 
000400 
000001 
010000 


010000 
044260 
044260 
044260 


044260 


0014S6 
001170 


MACY SOGC1OSE) VERIFY OPERATOR Sho Euler 


001170 


005316 
005316 
005326 
005316 


005316 


MOV aCOT, STMP4 ;ADD COT 
JMP 1$ ; TRY AGAIN 
13S: git #MOS,HCS2 
NE 6$ 
BIT #UFE ,HCS2 
BNE 7$ 
BIT atm 
Bit #NED,HCS2 
BEQ Ff 
8$: BIT aneD, HS2 
Q 1l 
10S: TST (R1) 
BEQ 4$ 
eR on cc, ar ; TYPE BYPASS DRIVES 
BR 12$ 
6S: JSR PC, BYP ; TYPE BYPASS DRIVES 
ERROR 2 :MDS DETECTED 
BR 12S 
7$: JSR PC, BYP 
ERror 3 ;UFE DETECTED 
12S 
9$: JSR PC, BYP 
aa tos ;DRA & NED RESET - OTHER PORT SELECTED 
THES S Pont ie PROGRAM WILL BE REPEATED FOR EACH 
’ 
mente Lay CONTAINS THE ADDRESS OF THE DRIVE CURRENTLY 
;UNDER TEST 
NUDRV: CLR BYPCERR ;ENTER HERE FROM LAST TEST 
;ALLOW CHECKING CERR IN ’FRDY’ 
CLR STMP4 ;CLEAR RKO7 FLAG 


se eee oy oa a oo eceleeenammanccnes 
T4 FIND NEXT TESTED 


j ATES DRIVE TO BE 

% TH INDS T xT oPhe NI PUTS THAT 

‘ ADORESS IN" PSURIT B ee xe IF RKO? 

+ HE FOLLOWING TES .. THE DRIVE TESTED. Is 

:# THe OORT VE WHOSE ADDRESS IS IN 'SUNIT 
lela 


jit 


03-JAN-78 


on p —— DU PORT LGC oy 
CZR6GB.P 


me 
OOneT UL 
oO 
soee © 
fu 


BR 


SEESLLELSLI£CL£S 
De ee ae te be be be te be ae ee he ee 


eo 
—- 
<= wv 


ey Snineiar Goer? Sees Se Bs 


Ree bh hh hh hb 


Toe oO 
Voz? wv 


NER LOM ODD ITT LOO DBI LO SO NOONE Cee 


SESSSSSSLLSLSLSCESES ELSES LESSEE SESE ESSE SES SL SLE LSS 
a ee ae ee ae ae ae Be me ee Bn ae ee ae ee be be en ee eee he he be be he 


es 
60 Bigria 
61 Q12714 
fs Bie 
ei Bless 
ee 012736 
67 012744 
68 hea 
63 Ole7 


032711 002000 
13 
127, 
04 
1 dats 
46 


613700 001222 


“ 


e2 


SS OSSS8E8 


eaeareras 
S888 
WW) 
NN 
288 
N 
N 
N 


o000 


MACY11 30A(10S2) 
T4 


001174 


Bi fé2 


OS6S60 


001222 


001170 


012770 


4S: 


S$: 


6S: 


DO? 


03-JAN-78 08:56 PAGE 81 SEQ 0081 
FIND NEXT DRIVE TO BE TESTED 
MOV al +STIMES ; ITERATION 
MOV ust i ES TORE STK PTR 
y aft ne {: TEST 
ore ORIVS ;ANY DRIVES PRESENT? 
Y *ALL DRIVES TESTED 
IMP scart ROL 0 TO E 
CLR 178 ;SETUP PORT A 
VB 8’A,MSG19A 
MOV DRVPTR, Ri ADOR OF NEXT DRIVE FLAG 
Tet vCT 1S. FIRST ORIVE BEING CHECKED 
ADD #2, SUNIT t TNcR TO NEXT EVEN DRIVE 
TST cal) BR RI PRESENT? 
BOB #4,R1 ;ELSE I 2 PTR TO NEXT EVEN DRIVE 
BR % ?& TRY AGAIN 
TST DDPCH ;DDP CHAIN MODE? 
BEQ 3$ :BR_IF_NO 
TST $ IT iB SF SEE IF ORV O 
BNE ; F 
ADD #4,RI ;ELSE FIND NEXT EVEN DRIVE PRESENT 
BIT #CDT, (R1) ;SEE IF DRIVE UNDER TEST IS RKO7 
BEQ g :BR_IF_NO 
nov aCOT | STNPH :ELSE SET RKO7 FLAG 
MOV R1’ ORVPTR ;STORE_PTR OF NEXT EVEN DRIVE FLAG 
move arse RO — 
MOV RO,-(5P) VE ERO FOR TYPEOUT 
TYPOS : TVPE=-OCTAL ASCII 
.BYTE : Hoe DIGIT 
"BYTE : ? SUPPRESS CLAbING ZEROS 
TYPE ,SCRLF ;29-SEP-77 
TST TMPY : SEE IF BK RKO? UNDER TEST 
BNE g 
HOV 86 be ELSE LOAD RKO& PARAMERERS 
we 
BR #1600 ;;GOTO NEXT TEST 
MOV #1456,LC ;LOAD RKO? PARAMETERS 
MOV #0. pote E.DDT 
MOV #1777, MASK 
MOV #140017, MASK1 


CZR6GBO RK611 DOU PORT LGC MY MACY11 aqg See) 


| C2REGB. Pll 03-JAN-78 08:4 
ooo406 


5 | 
2 
SN 
& 


| 


SII SS SS nner 
VOLS IRL OO ODD ME POT Owe VOU or 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
y 
4 


001174 


oos464 
ee 
1366 





LC: 
MASK: 
MASK1: 
E.ODT: 


FCP1: 
PFSRT: 


07 


O3-JAN-78 08:56 PAGE 82 
ND NEXT DRIVE TO BE TESTED 


BR TSTS ;;GOTO NEXT TEST 

8 ;LAST CYL 

0 

0 ;EXPECTED DRIVE TYPE TO E.A0 
e ;FIRST CYL 


;FC+1 
s;ENTER HERE FOR POWER FAIL RESTART 


-SBTTL DUAL PORT TESTS 


jf 


as BR RRC RC RCI RC RC CC SRC RC RC RC RC RC RC RC RCC RC RC RC RC RC RC RC RC iC 


Te te eet th th tht hth th hihi ieee ie te ie ie ie ie te ie te te te Tt 


szngegecncecnteeee ie; aint iaCTCC 


PORT ’A’ SEIZE & TIMEOUT 


VERIFY _THAT He Pes Oaive .s ee = SEIZED & THAT THE PORT 
TIMEOUT RELEASES T 


A. SET VOLUME VALID FOR BOTH PORTS & DO RECAL COMMAND 
B. A SELECT DRIVE C IS ISSUED THRU PORT ’A’. 


PROGRAM VERIFIES THE DRIVE HAS BEEN SEIZED BY ’DRIVE 
AVAILABLE’ SET. 


Cc. ASE ECT DRI COMMAND ISSUED THRU PORT ’B’ T 
P F ES THAT ° IVE 2 AVAILABLE” IS NOT SE 
FOR PORT 'B’ HAT CE S SE 
D. VERIFY THAT FOR 8 5 REQUESTED T ’B’, (MSG 
A-A3, pag-8? “tessa ALWAYS TURNS FROn port 8 
WHIL T Ae "8 SE 


T FOR THE PORT tant Poe 10, OCEUR On On Pont "A’ BY 


WAI 
CONT Bg’. 
ae oF a roar ang Pa DRIVE SELECT T CORMAND 1s 

T 'B’ to” VERIFY T DRIVE AVAILABLE IS SET 


reese "THe puRatoN of Rie TIMEOUT & TYPE THE VALUE 


F. VERIFY THAT ONLY PORT ’B’ GETS ’DSC’ & ’ATTN’. 
G. VERIFY THE ORIVE OMMAND CL SC’ *ATTN’ 
ON PORT BUT pores nN Not RELEASE The Sontve FROM PORT ’B’. 


naa °° aan mamta alee aceon ehanaamisnangpal eit tase 


v #1, STIMES ;;D0 1 ITERATION 
MOV astack, SP 
MOV #0 UNI te ;SETUP PORT A 
MOVB #’°A.MSG19A 
MOV TIMER, COUNT 
JSR PC, TMO ;DO0 TIMEOUT 


SEQ 0082 


| 


CZR&6GBO RK611 DU PORT LGC TST 
CZ2R6GB.P11 46 


03-JAN-78 O08: 
42 0130S2 104024 
uss 
48 3054 004737 


Ff P+ 4 
OO000000000 O0O0000000 
SIRE 


42 11 
wea? 013116 
4238 
1 
1 
1 
424, 1 
4e4 1 
4 1 
144 
146 
3154 
3176 


8 


forurore fOAOre 
2R3m wor 


SS BESSGRDD 28 


Se 
Sua 


Ree ee eh he heh bo 


MivTDTD 
O000000 O0O000000 A00000 C000 


WWW) 


044172 


: 


MACY11 30A(10S2) 
TS TE 


o0S404 


D0S410 
05412 


00S416 
00S4ee 


es: 


65S: 


ERROR 


FO? 


O3-JAN-78 08:56 PAGE 83 
ST PORT ’A’ SEIZE & TIMEOUT 


24 ;CERR AFTER SCLR 
PC, DRAV ;SEE_IF DRIVE AVAIL 

45 :PORT A NOT AVAIL AFTER TMO 
#CcC R, RKCS1(RS) 

SUNIT, RKCS2(RS) 

UNI TB; RKCS2(RS) 

#PACK'HCS1 

DocmD ;D0 PACK CMD & GET CONTR RDY 

116 :CONTR NOT RDY AFT PACK CMD 
#0. VV, HIRE 

27 ;VV NOT SET AFTER PACK CMD 
#SEOP , SESCAPE 

#1, UNITB ;SETUP PORT B 
#’8,.MSG19A 

TIMER, COUNT 

PC, TMO ;DO TIMEOUT 
PC, SUBCLR 
223 ;CERR AFTER SCLR 
PC, DRAV ;SEE_IF DROVE AVAIL 
48 :PORT B NOT AVAIL AFTER TMO 
#CCLR, RKCS1(RS) 

TT, RKC (RS) 

UNITB RKCS (R5) ;ADD 1 IF ON PORT B 

SRECAL, HCS1 
PC, DOCMD ;D0 RECAL CMD 8 GET CONTR RDY 
124 ‘RDY NOT SET AFTER RECAL CMD 
#1, RKMR1(RS) ;SELECT WORD 1 
PC’ GSTAT 

#0 RTZ, HNRE 
98 ;RTZ NOT SET DURING RECAL CMD 
710, TENPe : SETUP TIMEOUT 
5s’ fa wy AFTER RECAL CMD 


#<0.DSC!0.DRA!D.SPINID. TED nse’ BO -VV>,E.AGQ ;EXPECTED MSG AD 


E.80 EXPECTED 
ECB USPOK!D.CART!B” DOOR! D ;EXPECTED Al 
#1.€.81 Ti 


MSG ID F SEeRAED A ise 


E.Ae tEXPECTED MSG Re 
#2,£.B2 i FinG ID FOR EXPECTED MSG B2 
#3,£.83 :MSG ID FOR EXPECTED MSG B3 


SEQ 0083 


SS SS SS 


ceneaed RK611 OU PORT _LGC TST 
Cc -Pll 46 


GB 03-JAN-78 O8: 
4282 
4e83 1 7. 044274 
Se: GIES SRE 
Sse fleas iRise 
Se hee ie 
4 1 000026 
ike ee aS 
es fini fue 
: B1sie oos737 001360 
ee tke ce 
4298 
4e399 Ol ce 12765 100000 000000 
4 1 eee 001 
4 1 464 Beet 
4 1 1 OS 005314 
Se See ABS) oxsrs 
> ; 4 2 043 
ee fis 
4309 
mT Si sins 01 01 2 ooS404 
i See Bete BRR cosui0 
4313 013514 Q12737 000001 O0S4le 
Bie Seee HS BRIS cose 
ust 013834 012737 000003 Od0S4ee 
mete | that a 004737 044274 
4320 013860 1 O33 
43el 0135 104034 
ies Slee ipiie 
4324 
4 
4356 013560 012737 005464 
i, flees flee Ga Brae 
4 
4329 Ol 004737 047204 
oe gies TB Oss 
4333 
4334 
4335 013614 044172 
4336 013620 104045 
4337 O1362e2 012737 O14S44 001176 


MACY11 30A(10S2) 
TS 


66S: 


678: 


68S: 


GO? 


03-JAN-78 08:56 PAGE 84 4 
TEST PORT 'A’ SEIZE & TIMEOUT = Ove 
ISR PC HKMSG ;CHECK MS 58 Ble 
. WORD 'T.Be!T.B3 ” & Pec sta tED H 
RR 21 eG a9 gRaor ae ten REC AL C 
RR RROR 
ERROR 222 :MSG Al ERROR 
ERROR 67 :MSG B1 ERROR 
MOV #2, RKMR1(RS) 
JSR PC’GSTAT 
TST cyLDIF EEF te MSG A2=0 
BE ROR 8s ts , EARED AFTER RECAL CMD 
st CYLADD See OF ne RT g5& 
RROR :MSG Be fey CLEARED AFTER RECAL CMD 
MOV #CCLR, RKCS1(RS) 
MOV SUNIT,RK Be (RS) ;ORIVE® 
ADD UNITB’RKCS2(RS) '; 1 IF ON PORT B 
MOV #CLEAR, HCS1 
JSR DOCAD ;D0 DRIVE CLEAR CMD & GET CONTR ROY 
RROR b | RDY AFTER DRIVE CLEAR CMD 
SR TSTATN 4 ST FOR ATT 
RROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
MOV #<D.DRA!D.SPIN!D.DRDY!D.VV>,£.AQ ;EXPECTED MSG AD 
CLR E BO -E cTED MSG BO 
nov a zSPOK! 'D. carT#). 0 ‘ 2 BRHI? SSP>, EAL, | sEXPECTED Al 
CLR E.Ao EXPECTED 5 
MOV #2,£.B2 *MSG ID FOR EXPECTED MSG Be 
MOV #3,£.83 :MSG ID FOR EXPECTED B3 
JSR PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 
“WORD T.A2!T.B2!0 -& MSGS CIFtED HERE 
ERROR 33 ;MSG a0 ERROR AFTER ORV CLEAR CMD 
ERROR 34 ; MSH ERRO 
ERROR 35 :MSG Al ERROR 
ERROR 36 :MSG B1 ERROR 
MOV #0,UNITB ;SETUP PORT A 
MOVB #’A.MSG19A 
MOV TIMER, COUNT 
JSR PC, TMO ;D0 TIMEOUT 
ISR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
JSR PC, DRAV ;SEE_IF DRIVE AVAIL 
ERROR 4 :PORT A NOT AVAIL AFTER TMO 
OV #5$, SESCAPE 


HO? 


CZR6GBO RK611 DU PORT LGC TST MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 8S SEQ oo8s 
CZR6GB.P11 03-JAN-78 08:46 S TEST PORT ’A’ SEIZE & TIMEOUT 
4 
338 013630 012737 ee 005404 MOV #<D.DRA!D.SPIN!D. OROY 0. vv> aE. AO ;EXPECTED MSG AO 
4 ° i 4 3 41 ab ¥ | Bo spoKtD. cartiie SOSR! pO .neG Bie _ pEXPECTED Al 
4 ; 1 ? 8 posi MOV #1 E.Bl iHeg SG 1D F pone EX BED’ fi fis. 
i 127 3 a4 4 cov che P G 
345 Bisess isos? BS0s05 Bocuse MOV STE SBS nee iB FoR as TED Mac s 
4347 13676 904737 044274 ISR PC, CHKMSG i CHECK MSG al, Bl 
4 oi 77 ERR : gyOt0 ; G TF heb hehe TIMEOUT 
Set Bie Iie ERROR {G0 fas 6 BS 
u3e3 o1avia b1 739 000001 oos464 OV a UNITB ine 81 ERROR MEOUT OR RELEASE 
4354 : 23 1 056560 MOVB 878 M3G19A Set ERROR FOR CRE POAT : 
4 CLR ta 
4356 013734 737 044172 ISR PC, DRAV ;SEE IF DRIVE AVAIL 
4357 013740 OO0401 BR 1$ :BR IF NOT AVAIL 
eS 013742 104103 ERROR 103 ‘PORT 8 AVAIL BEFORE TMO OR RELEASE 
4 13744 937 7 100000 005314 1S: BIT #CERR,HCS1 
4 , oi 4 O4 ; ERROR 6s ;CERR NOT SET AFTER SEL DRIVE & DRIVE NOT AVAIL 
4 piste? 493339 010100 oos4o4 6S: MOV ab. SPIN!D. vv>, e 65 
4364 013764 013737 OOS4O4 O0S410 MOV Al :MSG 0 & 1 SHOULD ALWAYS RETURN SAME 
W365 13778 7 pier 76 005410 I ‘Bot, E.A 
4 7 4 L ;WORD O FOR PORT B 
4367 014004 005037 O054i2 CLR E.B1 
4368 014010 012737 O14S44 001176 MOV #S$, SESCAPE 
4 7 044274 ISR PC, CHKMSG ; 0, Al, Bl 
1330 814838 RB daa0 .WORD OfO!O if EK ee TP teD HERE 
4 28 14 1041 RR 1 ;MSG RROR WHILE PORT 8 UNAVAILABLE 
437 14 i 1 RRR !MSH RROR 
4374 4 1 RR ?MSG Al ERROR 
sare 014032 104107 ERROR 107 :MSG Bl ERROR 
4 014034 737 001216 TST SPASS 
4378 O14040 1402 BEQ 8S ;BR IF FIRST PASS 
4379 01404 14544 IMP :ELSE EXIT TEST 
4380 : 7 ? 8S: CLR sc 
4 4 i 5 1 po0000 MOV #CCLR, RKCS1(RS) 
4382 O01 01273 005464 MOV #0, UNITB ;SETUP FOR PORT A AGAIN 
Uae B1407s O15937 BDOSED DOlsee hl SSETUP_4 SEC_TIMEOUT 
4 Biitog BAg535 114 JSR pe cLKON :TURN ON CLOCK 
4387 014106 044172 ISR PC, DRAV 
4388 pti 98 104045 ERROR 45° ;PORT A NOT AVAIL AFTER TIMEOUT 
4390 O1iis 012737 900001 gosH6H MOV Howe ;SELECT PORT B BEFORE TIMEOUT OR RELEASE 
q3a5 Bt atSé bd95 7 Ba9i9s JSR onay- ;SEE IF PORT B ORIVE AVAIL 
4393 014134 o00401 BR at :BR IF NOT AVAIL 


I0?7 


CZR6GBO RK611 DU PORT LGC TST MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 86 SEQ 0086 
CZR6GB.P11 03-JAN-78 08:46 TS TEST PORT 'A’ SEIZE & TIMEOUT 

4334 014136 104103 ERROR 103 ;PORT B AVAIL BEFORE TMO OR RELEASE 

4 014140 012765 100000 o00000 3s: MOV SCCLR, RKCS1(RS) 

4397 O141 13704 1222 MOV SUNIT;RY 

4 141 3704 464 ADD UNI TB RY 

4399 O141 004737 4214 ISR C,FAtT3 

wa 0 O14ibe 104110 ERROR 110 ;NO ATTN ON PORT B TO ALLOW SEIZE 

44 14164 737 7162 JSR PC, CLKOF 

wae Braise ithe 7 pais ISR PC; DRAV ;SEE_IF PORT B DRIVE AVAIL 

wage 014174 10404S ERROR 4S ;PORT B NOT AVAIL 

wide 014176 012737 O14S44 001176 MOV #S$, SESCAPE 

4408 O14204 012737 O50340 o00s404 Mov 8<D-DSC#D. DRA!D. SPIN!D. DROV:D. VW) ,E AO ;EXPECTED MSG AO 

wii? BEI GlEre7 Boieat GOES FRY giDa SEO CART#C BOOED BRMLPeee nwa SAPESTED 

quie 14553 414 CLR E.Ae +O SECTED MSG Ae 

4413 014236 b1e737 005416 MOV He, .B2 :MSG 1 FOR E CTED MSG B2 

wate 14244 0127: 000003 o0542e2 MOV #3,£.83 >MSG FOR EXPECTED MSG B3 

u4i? OL4SeE 00909 —s TiBeo | Ofbfo SUES SGC iP TED HERE’ 

4418 14366 1040 ERROR 95 : :MSG 80 RROR AFTER TIMEOUT 

4419 O14 194100 ERROR 100 :MSH RROR 

4420 014264 10410 ERROR 101 :MSG Al ERROR 

4421 14266 041 ERROR 102 *MSG B1 ERROR 

449, 14270 001176 CLR SESC 

44d 14 12737 o0s464 MOV #0, UNITB ;SETUP FOR PORT A 

4424 014308 112737 000101 OS6560 MOVB #’°A.MSG19A 

38 o14318 47 7 043750 JSR PC, TSTATN ; TEST FOR ATTN ON PORT A 

pa t4 14316 104111 ERROR 111 ;PORT A ATTN SET W/O REQUEST PENDING 

4429 O14 12737 O14S44 001176 4S: MOV #SS$, SESCAPE 

i450 1436 018737 900001 005464 Vv #1 ONT TS ;SETUP FOR PORT B 

4431 14 1127 0001 056560 MOVB #’°8,MSG19A 

4433 O14342 012765 100000 onD0000 MOV #CCLR,RKCS1(RS) 

4434 Bt aae8 Ot Soee 001222 o00010 MOV SUNIT;RKCS2(RS) ;DRIVE® 

4435 014356 5 005464 0000 ADD UNITB;RKCS2(RS) °;ADD 1 IF ON PORT B 

44 14364 005314 v #CLEAR, HCS1 

wae Blase Gourey ONS" 2ifon [Ei000H BB SIV PERP RACE E.6n GOD™™ 

a438 O1wiog 004737 043750 JSR PC ,TSTATN ?TEST FOR ATTN 

nan: 014406 Ponsa ae ERROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 

444 . 

nn Btig 012737 910340 005404 Mov #<D.DRA!D. SPIN!D. DRDY!D- WV» ,£. 0 ;EXPECTED MSG AO 

wae iwiee 012737 001720 oos410 MOV #<0.SPOK!D.CART!O.DOOR!D.BRHM!D.SSP>,£.Al ;EXPECTED Al 

4447 0144 012737 0001 005412 MOV #1,.£.B1 ;MSG ID FOR EXPECTED'MSG B1 

4448 014436 005037 OOS4i4 CLR E.Ae ‘EXPECTED MSG Ae 

4449 O14442 012737 o02 oos416 MOV #2,£.B2 ;MSG ID FOR EXPECTED MSG B2 


CZR&GBO RK611 DU PORT LGC TST 
CZR6GB.P1 


1 03-JAN-78 08:46 

4450 ‘4450012737 000003 
4452 014456 004737 044274 
4453 014462 
4454 014464 104033 
4455 O14466 104034 
W456 014470 104035 
4457 014472 104036 
4458 
4459 
4460 014474 012701 360 
4461 O14 163701 001366 
4462 O14 G1e8746 o000e1 

3 014510 010146 
wae4 O1Ne1e 009737 Os4270 
4465 014516 012616 
44 14520 012601 
4467 O14 104401 OS6564 
4468 014526 010146 
was 14530 0047 4174 
44 145 737 054230 
4472 G14S4O 104401 056645 
4473 O14S44 005037 001176 
4474 014550 004737 047162 
4475 
4476 
4477 
4478 
4479 
4480 
4481 
4482 O145S4 OD00004 
re Bers Sige gape 
dues Bldeed | B1B739 00 
4486 014576 112737 O00102 
4487 O14604 0613737 O0S4E6 
weg 014612 737 047204 
4490 014616 737 oO45534 
4491 O14622 104024 
4495 
4493 
4494 014624 004737 044172 
4495 014630 104045 
W498 014632 012737 o155S4 
44 14640 012737 010340 
44 14646 005037 005406 
4500 O146S5e 012737 001720 
4301 O14B60 012737 900001 
4502 014666 005037 O054i4 
4503 014672 012737 O00002 
4504 014700 012737 000003 


MACY 11 — 03-JAN-78 


oos42ee 


001174 
005464 
056560 
001366 


001176 
oos404 


005410 
oo0s41le 


00S416 
O00S422 


JO? 


78 08:56 PAGE 87 
TEST PORT ’A’ SEIZE & TIMEOUT 


MOV #3,€.B83 ;MSG ID FOR EXPECTED MSG B3 


ISR PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 
.WORD T.Ae!T.B2!0 -& MSGS SPECIFIED HERE 
ERROR 3 ;MSG a ERROR AFTER DRV CLEAR CMD 
ERROR a ?MSH BO ERROR 
ERROR 35 :MSG Al ERROR 
ERROR 36 :MSG Bl ERROR 
MOV #360,R1 
SUB COUNT, R1 ;R1-COUNT=R1 
MOV #17. ,-(SP) ;;PUT THE MULTIPLER ON THE STACK 
MOV R1,-(SP) ::PUT THE MULTIPLICAND ON THE STACK 
JSR PC: a8SMULT ;;CALL THE MULTPLY ROUTINE 
MOV (SP)+, (SP) ;;DISREGARD THE MSB’S 
MOV (SP)+’R1 -:GET THE LSB’S OF THE PRODUCT 
TYPE msGe0 ;PORT TIMEOUT 
MOV Ri, -( ?PUSH BINARY ONTO STACK 
ISR PC, $2820 ?CONVERT TO ASCII 
ISR PC‘ $SUPRS ‘TYPE IT 
TYPE ,MSG22 :MS 
SS: CLR SESCAPE 


JSR PC, CLKOF 
5 6 HE 36 06 2 HE SE HE HE SE HE HE HE HE HE HE AE SE HE HE HH HH HH HE HE HE 


jATEST 6 TEST PORT ’B’ SEIZE & TIMEOUT 
i THE PREVIOUS TEST IS REPEATED FOR PORT ’B’. 
ae RKEKRAARARARAKRASRKARKKEARRE RRR AARAAKAREKRARAKRAKARRLAAKAAAAKRAKSHKE 
tST6: SCOPE 
MOV #1, STIMES ;;DO 1 ITERATION 
MOV astack, SP 
MOV NItB ;SETUP PORT B 


#1,U 
MOVB #’8,MSG19A 


MOV TIMER, COUNT 
ISR PC, TMO ;DO TIMEOUT 
ISR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
JSR PC, DRAV ;SEE_IF DRIVE AVAIL 
ERROR 430 melee :PORT B NOT AVAIL AFTER TMO 
’ 
Mov #<D-DRA!D. SPIN!D. DRDY 2D. VV» ,£.0 ;EXPECTED MSG AO 
MOV #<D. SPOK!D.CART!D.DOOR!D.BRHM!D.SSP>,E.Al ;EXPECTED Al 
MOV #1,€.B1 ;MSG_ ID FOR EXPECTED MSG B1 
CLR E.Ae :EXPECTED MSG Ae 
MOV #2,£.B2 ‘MSG ID FOR EXPECTED MSG B2 
MOV #3/E.B3 :MSG ID FOR EXPECTED MSG B3 


SEQ 0087 


See OC OOOEEeOeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee ee 


CZR6GB0 “oe DU PORT _LGC TST 


CZR6GB.P11 

d208 oly 
4 1471 
om Hels 
a3 B1iri8 
4S11 0147 
“Sle 0147, 
4513 0147. 
dzie 14 
4515 014744 
4516 O14 

17 O14 

18 
4519 014754 
4Se0 014762 
a Bie 
eS Bits 
se fie 
4Se6 015014 
4Se7 015020 
4S28 
ee Slee 
pa 12036 
4533 0:505g 
4534 01504 
4535S 
os pis 
ie tie 
et 
eu fle 
454 15104 
4S44 015112 
4545S 
4546 015116 
4547 O015lee 
4548 
4549 015124 
4550 015132 
4551 015140 
es SIE 
se 
See piste 
es fie 
4558 015166 
4559 015172 
4S60 
4561 015174 


004737 


Artes 
SSS8h=8 


Ore ~— 
fea pes 


: 


2 
8 


85 
Bd 5 


9225 
Saye 
aaa 


tr Oo 
- 
iY) 

NN 
es Ww 
N 


12765 
13704 
704 
004737 
104110 
004737 


03-JAN-78 08:46 


o44e74 


001216 


MACY11 30A(1052) 
Té 


ooS464 
O0S6S60 


005314 1S: 


OOS4O4 65: 


0S6560 
001366 


ooS464 
oS6S60 


oooooo 3S: 


KO? 


O3-JAN-78 08:56 PAGE 88 
TEST PORT ’B’ SEIZE & TIMEOUT 


SEQ 0088 


PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 
ofbio *& MSGS SPECIFIED HERE 

77 ; AO ERROR AFTER TIMEOUT 

100 :MSH BO ERR 

101 :M5G Rl ERROR 

102 :MSG Bl ERROR 

#0, UNITB :SELECT PORT A BEFORE TIMEOUT OR RELEASE 
#’A.MSG19A :SETUP ERROR MSG FOR PORT A 

SESCAPE 

PC, DRAV ;SEE_ IF DRIVE AVAIL 

1$ :BR_IF NOT AVAIL 

103 ‘PORT A AVAIL BEFORE TMO OR RELEASE 
BCERR, HCS1 

130 ;CERR NOT SET AFTER SEL DRIVE & DRIVE NOT AVAIL 
#<D0.SPIN!D.VV>,E.A0 

E.A0.E.Al :MSG 1 & O SHOULD ALWAYS RETURN SAME 
E.DD0T,E.Al 

E-B0 ;WORD O FOR PORT A 

#5$, SESCAPE 

PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 

ofoto '& MSGS SPECIFIED HERE 

104 : AD ERROR WHILE PORT A UNAVAILABLE 
10S ‘MSH BO ERROR 

106 :MSG Al ERROR 

107 :MSG B1 ERROR 

SPASS 

8S ;BR_IF FIRST PASS 

S$ ‘ELSE EXIT TEST 

SESCAPE 

#CCLR, RKCS1(RS) 

#1, UNtTB ;SETUP FOR PORT B AGAIN 

#’8.MSG19A 

#360, COUNT ;SETUP 4 SEC TIMEOUT 

PC, CLKON _}TURN ON CLOCK 

PC, DRAV 

45 ;PORT B NOT AVAIL AFTER TIMEOUT 

#0, UNITB ;SELECT PORT A BEFORE TIMEOUT OR RELEASE 
#’A.MSG19A 

PC, DRAV ;SEE_IF PORT A DRIVE AVAIL 

3$ :BR IF NOT AVAIL 

103 :PORT A AVAIL BEFORE TMO OR RELEASE 
#CCLR, RKCS1(RS) 

SUNIT;RY 

UNITB;RY 

Pc, FAtT3 

116 ;NO ATTN ON PORT A TO ALLOW SEIZE 

PC, CLKOF 


07 


CZR6GBO RK611 DU PORT LGC TST MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 89 SEQ 0089 
CZ2R6GB.P11 03-JAN-78 08:4 Té TEST PORT ’B’ SEIZE & TIMEOUT 

4 737 044172 PC, DRAV IF PORT A DRIVE AVAIL 
wees Ries89 10404S ZBRoR us’ i BoRT A T AV alt 
uS65 015206 012737 O1SSS4Y 001176 MOV #S$, SESCAPE 
ee? 4 o127 7 pso340 o0s404 MOV DSC!D.DRA!D. SPIN! DROY!D. VV .VV>,E.AQ ;EXPECTED MSG AO 
. Bigsk2 ¥ 7 4 Sov tise 'D. cnn hott see JEXPECTED Al 
166 B13 818335 85666 2 BRe4t8 HOV Bt Hoe ib - REMIND, S8P> ED’ HSc_B 
m4 B1Sea6 005416 V ut B2 ;MSG se CTED MSG B2 
ie73 15254 012737 o00003 o0542e2 MOV :MSG ID FOR EXPECTED MSG B3 
4575 oiSsee 004737 0O44274 JSR PC, cHKnSG i CHECK MSGS Ate BO, al, Bi 
qe9 12558 titted ERROR al ine e 60 ERROR feo He ER FE MEOUT 
uers Olee74  lodioL ERROR 191 in ERROR 
dead B15e76 180183 o. ERROR 102 ing Bt 
ee B1e304 bia737 bbas o0S464 HOV $F GNT ect FOR PORT B 

153i2 i1 102 OS6S560 MOVB #’8,MSG19A 
4584 o1 737 043750 ISR pc, TSTATN ; TEST FOR ATTN ON PORT B 
1eBe i ae PRROR 111 ;PORT B ATTN SET W/O REQUEST PENDING 
4588 015330 012737 015554 001176 4S: MOV ass SESCAPE 
4589 015336 012737 o00000 o05464 MOV 0, UNIT 78, ;SETUP FOR PORT A 
4590 015344 112737 000101 OS6560 MOVB SALNSG 
ede pt eSe5 Ot Soee ; 2 Ol NOY Soar R Reees Re) :DR Vee 

eae 

deoa O153e6 are pose 00001 ADD Suite’ RKceecR ) ’;ADD 1 IF ON PORT B 
4595 0153 0127 005314 MOV #CLEAR, HCS1 
4596 15402 0047 043372 JSR C, DOCMD ;DO DRIVE CLEAR CH CMD & GET CONTR RDY 
4e37 O1S4OR 1041 ERROR 15 ?NO_R TER ORIVE CLEAR CHD 

1541 043750 ISR C. TSTATN ?TEST FOR ATT 
4599 015414 OO0401 BR 64$ 
4600 O1S4i6 104154 om ERROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
4602 : 
4603 015420 012737 010340 OOS4O4 MOV #<D.DRA!D.SPIN!D.ORDY!D.VV>,E.AO ;EXPECTED MSG AD 
4 O154e6 0054 CLR E. E BO TED MSG 
4 154 1 0017; 005410 MOV SPOK!D.CART!6. DOOR! -SSP>,E. al. EXPECTED Al 
4606 O15340 732 990001 005412 MOV $1 -Bl iExbet eb FOR. CTED’MSG B 
46. 154 7 414 CLR E. 
4608 O0154Se 012737 O00002 ons416 MOV #2,£.B2 G ID RoR EXPECTED MSG B2 
4608 015460 012737 o00003 O0S42e2 MOV #3,£.83 imsc ID FOR EXPECTED MSG 83 
4611 15466 7 044274 ISR PC, CHKMSG ; CHECK MSGS a 
wets Bisa 1 3 -RROR T,heiT.Get0 M RROR macs SPeciPteD veRe 
4614 Bt eae {Bupa RROR 33 inSH BO B ag brag 
4615 O15S00 104035 ERROR 35 :MSG Al ERROR 
mat 015502 104036 ERROR 36 :MSG B1 ERROR 


_—E 
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GB.Pil 


1 
uE36 


46 
44 
, sO 
4632 SSS4 
4633 SS60 
oe 
4637 
oe 
4639 
4640 
4641 
464, 
464 
eae Bisse 
oe le 
464 
4648 015600 
4649 015604 
ae 
ee) LEEDS 
ieee 
ie: EELS 
er 015626 
ey flees 
irk lees 
tees 
4663 015654 
4664 Bt 
S O01 
4666 O01 
see Bless 
8 § 
4670 015676 
4671 0157 
467, 157 
467 15704 


737 054270 


— 
-_ 
OWW 
—-TO 
£rtW 


Uv 


— 
oo 


000360 
001366 
oo00e1 


oS6651 
peuied 
bs6635 


001176 
047162 


477768 
0060 
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001174 


000026 


 & 
Le 
+ 
3% 
:% 


§ 


1$: 


MO? 


PAGE 30 
SEIZE & TIMEOUT 


O3-JAN-78 08:56 
TEST 


PORT ’B’ 
MOV #360,R1 
SUB COUNT, RI ;R1-COUNT=R1 
Vv 17. ,-(SP) ;;PUT THE MULTIPL R aot THE STACK 
MOV 1,-(sP) ‘PUT THE MULTIPLICAND ON THE STACK 
ISR PC’ JeSMULT 3; CALL ThE MULTPLY ROUT INE 
MOV (SP3+, (SP) ; ]DISREGARD_T 
MOV (S5P)+’R1 “GET THE LSB’S OF THE PRODUCT 
TYPE MSG23 PORT TIMEOUT 
MOV R1,-(SP) :PUSH BINARY ONTO STACK 
ISR PC’ $SB2D s FOOVE TO ASCII 
SR PC: §$ UPRS TYPE IT 
CLR SESCAPE 
ISR PC, CLKOF 


THIS 


IN BCD 


pienungoceusoneeer ea an. 


PRINT DRIVE SERIAL NUM 


TEST READS & PRINTS THE DRIVE SERIAL # FROM MSG A3 
ON THE 1°ST PASS ONLY. 


AL AsO Tests THAT THE SERIAL # READ THRU BOTH PORTS 


MOV 
MOV 


5 
; 
; 
’ 
; 
; 
os 
hi nn es 


;;00 1 ITERATION 


astAck, SP 


SPASS 
TST10 ;;GO TO NEXT TST IF NOT 1ST PASS 
PC, SUBCLR 
24 ;CERR AFTER SCLR 
SG VE SERIAL _NO. 
#5-8kRR1 RS) SEL eer “BY ts 
PC, GSTAT :GE 
Ate TOL RY Gt R BUFF 
Ra, =(SP3 STORE ON STACK F FOR SSUPRS 
BT’ 96 THiac tee SoyNe POSITIONS 
Ri ;GET NEXT 4 BITS 
R1 
R1 
R1 589 ET peace Buf et 
#177760, RO LEAR ALL ut Cou 4 BITS 
#60,RO0 Pie a CII DIGIT 
RO, tR4)+ :PUT ASCII Oofert INTO CHAR BUFF 
1$ ;BR_IF ALL 3 CHARS NOT DONE 
(RY) tELSE INSERT NULL TERMINATOR 


SEQ 0090 


CZR6GBO RK611 DU PORT LGC TST MACY11 30A(10S2) 03-JAN-78 08:56 PAGE 91 
CZR6GB.P11 03-JAN-78 08:46 17 PRINT DRIVE SERIAL NUMBER 
4674 
4675 015706 004737 054230 JSR PC, SSUPRS 
4676 ; TYPE Se Sog-sep-b7 
W677 TYPE SCRLF 29-SEP-77 
4679 } eebeeeeeeocerereeenenreeneenererepeaeatannreneneneaneeerens 
we80 jr T 10 TEST PORT ’A’ COMMAND 
| wes # VERIFY THE OPERATION OF "DSC’ & ’ATTN’ BITS AFTER A COMMAND. 
wees # A. ISSUE A SEEK COMMAND TO CYLINDER 10 THRU PORT ’'A’. 
486 2% B. VERIFY SEIZURE & THAT rOsc’ & & ’ATTN’ 
ues? i ONLY AFTER SEEK COMPLETION 
4689 - C. VERIFY ATTN’ REMAINS SET BEYOND TIMEOUT 
| 4691 :% D. VERIFY A OR 
| we3e # DOES NOT RELEASE THE DRIVE FROM PORT ‘A’. 
ueee 015712 ooo004 slangreggegzestsesnsasensnnennnenasenasnennsennnennnn 
| SBS Blers3 Gleree poppe cous FY uaa i neon 
4698 15726 Ol 237 000000 005464 MOV #0, UNITB ;SETUP PORT A 
46 15734 1127 000101 oS56560 MOVB #’A,MSG19A 
4700 O15 742 013737 OOS466 001366 MOV TIMER, COUNT 
| 4701 15750 004737 047204 JSR PC, TMO ;D0 TIMEOUT 
| 4703 015754 004737 O45534 JSR PC, SUBCLR 
| 4708 015760 104024 ERROR 24’ ;CERR AFTER SCLR 
47 
4707 015762 004737 044172 JSR on PC, DRAV ;SEE_IF DRIVE AVAIL 
4709 015770 612765 ooo001e oo0020 MOV #10.,RKDC(RS) ;SEEK TO CYL 
471 15776 737 7 
471 bt Boos 45735 899935 ——- ey pee Seno 
4713 016010 104131 ERROR ial ?NO ROY AFTER SEEK CMD 
4715 016012 013737 oO1412 oDs352 MOV TSOOO0, TEMP1 ;SETUP TIMEOUT 
471 bi epee 004737 O44106 JSR pc .FaTt2 :FIND ATTN 
u2iz 016024 104132 ERROR 132 :NO ATTN AFTER SEEK CMD 
4719 016026 032737 
4720 016034 aptay ee Bea —— 
ize) 016036 104210 ERROR 210 ;CERR AFTER SEEK CMD 
izes 016040 65S: 
G75e Bleoye pesos? posson COjNOM 1 em” raanenegmanes “SEXPECTED 15g. (a aeptaee 
fee Bleoes Giersr Sobost BRE © Rey _‘HieeS"O- CARTE OEP 
4729 016066 005037 005414 CLR E.A2 ‘EXPECTED MSG A 


NO? 


SEIZE & ATTENTION 


SETS FOR PORT ’A’ 


IVE CLEAR COMMAND RESETS *DSC’ & ’ATTN’ 


;PORT A NOT “ AFTER TMO 


;D0 SEEK CMD & GET CONTR READY 


SSP>,E.Al 


MSG ID FOR EXPECTED MSG B1 


;EXPECTED MSG AD 
;EXPECTED Al 


SEQ 0091 


eee 


ll JAN-78 08:46 
47 pieore 012737 o00002 
4333 161 012737 000003 
47 161 737 044274 
aa BIEN BERS 
4735 016114 104161 
4736 O1611 ies 
4737 0161 104163 
i338 161 104164 
47 
4740 0161 737 O4S756 
474 bie 001360 
474, 161 14 
474, 161 27 000000 
4744 016146 8 Soar 00091e 
wae Gicles Bieree le 
nn B1e176 1042 
4749 0161 012737 oo0ee6 
4750 Bi e200 737 047204 
475 staat 044106 
: 16210 104112 
4754 Ol 
ve fies Ree Slee 
p29 16e34 0127. 
4758 Qi 7 043372 
4759 O01 1041 4 
4760 O1 004737 043750 
ee Bleees 
oe 8 
4764 
4765 01 012737 010340 
wee tltees Bee Bere 
tee flee Bless Sect 
4769 016306 Ro30 7 005414 
Ae Bie BLES 
nae | 1 0le7 00000 
4773 O1 004737 044274 
4774 steed Fee 
4775 0163 104033 
4776 016336 104034 
4777 Bt 104035 
p 16342 104036 
47) 016344 004737 044172 
ue 016350 104113 
4783 
4784 


MACY11 — O3-JAN-78 08:56 PAGE Se SEQ 0092 


00S416 
00S42e 


eat 
0010 
000010 


005314 


oosS404 
poets 
S4le 


005416 
00S42e2 


TEST PORT ’A’ COMMAND SEIZE & ATTENTION 


MOV 42, E.B2 ;MSG ID FOR EXPECTED MSG Be 
MOV 3,£.83 ?MSG ID FOR EXPECTED MSG B3 
JSR PC, CHKMSG HECK al, Bl 
WORD oOfbfo if MSGS s Feaan DISS 
ERROR 161 ica AD E OR AFTER SEEK CMD 
OR 162 i SH BO E 
ERROR 163 :MSG Al ERROR 
ERROR 164 :MSG B1 ERROR 
JSR PC, RDCYLA ;READ CYL ADDR 
CMP cyLADD, #10. i SEE IF CYL 10. 
BEQ 4 ‘BR IF YES 
MOV #0, FRCYL 
MOV #10. , TOCYL 
MOV #10. ,CALOIF 
MOV #10. *RKDC(RS)  ;REFRESH RKOC 
ERROR 224 :DID NOT SEEK TO CYL 10. 
64S: MOV #150. ,COUNT 
JSR PC, TMO ;D0 2.5 SEC TIMEOUT 
JSR PC’FATT2 
ERROR 112 ;ATTN CLEARED AFTER TMO 
MOV #CCLR, RKCS1(RS) 
MOV SUNIT;RKCS2(RS) ;ORIVE® 
UNITB?RKCS2(RS) °;ADD 1 IF ON PORT B 
MOV aCLEAR, HCS1 
JSR PC DOCMD ;D0 DRIVE CLEAR CMD 8 GET CONTR RDY 
ERROR 151 *NO_RDY AFTER DRIVE CLEAR CMD 
JSR PC, TSTATN :TEST FOR ATTN 
a ERROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
MOV #<D.DRA!D.SPIN!D. -DROY Dv .VV>,E.AO ;EXPECTED MSG AO 
CLR E BO XPEC ED 
MOV #<D. SPOK!D. cart? 6. DOOR!D. BRHM!D. SSP> Ee Al ;EXPECTED Al 
MOV #1,€.B1 G ID FOR EXPECTED’MSG B1 
CLR E.Ae s EXPECTED MSG Ae 
MOV #2,£.82 G 1D OR EXPECTED MSG B2 
MOV #3,£.83 mee D FOR EXPECTED MSG B3 
JSR PC, CHKMSG ; CHECK nsGs AD Al, 
WORD T.A2!T.B2!0 MSGS Spec ciFt EB 1 MERE 
ERROR 33 sMSG AO bRaoe AFTER DRV CLEAR CMD 
ERROR 34 H BO E RROR 
RROR 23 iMSG A 
RROR 3 :MSG Bt RROR 
ISR PC, DRAV 
ERROR 113 ;PORT A NOT AVAIL AFTER DRIVE CLEAR CMD 
} SERENE RRR E RE eT TB! COMMAND SELZE 2 ATTENTION 
j ATE TEST PORT 'B’ COMMAND SEIZE & ATTENTION 
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| 4786 ; THE PREVIOUS TEST IS REPEATED FOR PORT ’B’, 
; BUT THE SEEK IS TO CYLINDER O 

4790 016352 tSTil: 

4791 016354 012737 000001 001174 MOV #1, STIME ;;D0 1 ITERATION 

4 3 Ri MOV as thick 3 

4 00S464 MOV % It ;SETUP PORT B 

4794 016374 112737 000102 OS&S60 MOVB #’B, MSG19A 

4795 O16402 0137 466 001366 MOV IMER COUNT 

4736 16410 7 7204 JSR , TO ;D0 TIMEOUT 

4 O16414 37 oO4SS34 JSR PC, SUBCLR 

4 16420 104024 ERROR 24 ;CERR AFTER SCLR 

dace 016422 004737 044172 ISR PC, DRAV ;SEE_IF DRIVE AVAIL 

4803 016426 104045 ERROR 4S PORT 8 NOT AVAIL AFTER TMO 

4804 016430 012765 oo0000 oD00020 MOV #0, RKDC(RS) :SEEK TO CYL O 

4806 016436 012737 000017 005314 MOV #SEEK,HCS1 

4807 O16444 004737 043372 JSR PC. DOCMD ;D0 SEEK CMD & GET CONTR READY 

4808 16 104131 ERROR 1a] :NO RDY AFTER SEEK CMD 

4g10 g16452 013737 oo112 005352 Mov T0000, TEMP i SETUP TIMEOUT 

RE Biedes 08d 2RRoR Ss TNO NATIN AFTER SEEK CMD 

4814 O16466 032737 100000 005314 BIT #CERR,HCS1 

481 01 474 00140 BEG 5 

agi 16476 10421 OR i ;CERR AFTER SEEK CMD 

4818 016500 : 

ei - 


016500 012737 OSO340 OOS404 MOV #<D.DSC!D.DRA!D.SPIN!D.ORDY!D.VV>,E.AO ;EXPECTED MSG AO 


4820 : ; 
4 1 4 CLR # *EXPECTED MSG 

Bee OLEEie 1 i720 g0s'19 nov &iB_SPOK?D. CART! “DOOR?D. BRAN: -SSP>,£.Al_ EXPECTED Al 
B34 at 05037 Bost CLR eta5- iExpecteD isk 

4 1 1 02 oos4is MOV #2,€.B82 3MSG ID FOR EXPECTED MSG B2 

016540 012737 000003 o05422 MOV #3,£.83 :MSG ID FOR EXPECTED MSG B3 

4 1 7 044274 JSR PC, CHKMSG ; CHECK BO, Al, Bl 

4 Bt eees BB da80 .WORD OFOfO 8 AScs Specirtes 

4831 pieeee atte FR i ine a9 RROR AFTER SEEK CMD 

4 ie i 1 RROR ij :MSG Al ERROR 

4833 016562 104164 ERROR 164 :MSG Bl ERROR 

dese 016564 004737 045756 ISR PC, ROCYLA ;READ CYL ADDR 

4636 bles 023727 001360 oo0000 cH gyro. 8° jSEE IF cyl 0 

CY 18608 127. D0! 4 MOV #10. .FRCY r 

RE 1 15335 (Boopbs §pptaue MOV noe ToeyL 

4840 016614 012737 O00000 001354 MOV #0; CALDIF 

4841 Ol6622 Ole 000020 MOV #0; RKDC(RS) ;REFRESH RKDC 


| 
mse ; 
4388 +s er ee 
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T PORT 'B’ COMMAND SEIZE & ATTENTION 


ERROR 224 ;DID NOT SEEK TO CYL O 
64S: MOV #150. , COUNT 

JSR PC, TMO ;D0 2.5 SEC TIMEOUT 
J R PC’ FATT2 

OR 112 ;ATTN CLEARED AFTER TMO 

Vv (RS) 

Y SGN RP BKESSCRE) onrves 
00 UNI TB, RKCS a(RS) ;ADD 1 IF ON PORT B 
J BK ;DO DRIVE CLEAR CMD & GET CONTR RDY 
ERROR Al RDY BF TER DRIVE CLEAR CMD 
JSR PC ,TSTATN TEST FOR ATT 

nal ERROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 

Mov #<D. DRA! 'D.SPIN!D. BeBe PeD .VWV> rae. AO ;EXPECTED MSG AO 

v #<D. SPOK!D.CART!D Boating .SSP>,E.Al_ ;EXPECTED Al 
Mm v al E.B1 iis 1D FOR BR EXPECTED’ MSG B1 

V EME oo g ae th CTED MSG B2 
MOV 83,£.83 iMSG ID FOR EXPECTED MSG B3 
ISR PC, CHKMSG ;CHECK MSGS AO, BO 
.WORD T.A2!T.B2!0 Spectr te b HERE 
ERROR 33 V CLEAR CMD 
ERROR 35 hes 68 ERROR 
ERROR 36 :MSG B1 ERROR 
ISR PC, DRAV 
ERROR 113 ;PORT B NOT AVAIL AFTER DRIVE CLEAR CMD 


Fh-5-5-4-tol-b-talahadahahaled-+-5-$-tah-4-5-5-1-tab-4-4-4-lel--tnah-4-5-5-het-4-5-tr lal So hal-+-4-fyt tad -fab-5-4-tah-F-tote 


v &2 TEST RESET PORT ‘A’ ATTENTION BY DRIVE CLEAR COMMAND 
VERIEY THAT A RIVE CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF 
THE SEIZING 


A. SET EACH PORT’S ATTENTION BIT BY PERFORMING SEEK 
COMMANDS TO CYLINDER O & ALLOWING TIMEOUTS. 


B. SEIZE THE DRIVE THRU PORT 'A’ & ISSUE A DRIVE CLEAR COMMAND 
VERIFY THAT ’DSC’ & ATTN’ FOR PORT ’A’ HAVE BEEN CLEARED 


c. Seize Te. pai THRU PORT ’B’ & VERIFY ’DSC’ & ‘ATTN’ 
31 gr °-"- tmemasaammampapaamaas ans csatmua sige emaaupmanaaatscen eames iat tists 
MOV #1, STIMES ;;00 1 ITERATION 


oe autos coe 


ti 


MOV aStack 
MOV Unit ;SETUP PORT A 
MOVB : A,mMSG19A 


E08 
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4 1 37 4 001366 MOV TIMER, COUNT 
1833 Bt B es 333 OOF 28 JSR pan enO ;D0 TIMEOUT 
4 17054 737 o4SsS34 ISR PC, SUBCLR 
1308 Bt Reo OBdoe4 ERROR 24’ ;CERR AFTER SCLR 
4304 
4305S 017062 4737 044172 ISR PC, DRAV ;SEE_IF DRIVE AVAIL 
4 17066 10404S ERROR 45 :PORT A NOT AVAIL AFTER TO 
4908 017070 012737 000017 005314 MOV BSEEK HCS1 
4309 017076 737 043372 JSR DOcmD ;D0 SEEK CMD & GET CONTR READY 
4310 171 104131 ERROR 5° 'NO RDY AFTER SEEK CMD 
uae 017104 013737 oO1412 005352 MOV TSO000, TEMP1 ; SETUP TIMEOUT 
4913 O171le 737 O44106 JSR Pc. FaTte ; FIND ATTN 
4gi3 017116 104132 ERROR 132 :NO ATTN AFTER SEEK CMD 
4ai6 17120 032737 100000 605314 BIT #CERR,HCS1 
491 17126 1401 BEQ 64$ 
ugig 17130 104210 ERROR 210 ;CERR AFTER SEEK CMD 
4320 017132 64S: 
1928 017138 012737 os0340 005404 Mov #<0-DSC!D. DRA!D. SPIN! a v20. VV>,E.AQ ;EXPECTED MSG AO 
4368 17144 0187 7 p05419 MOV #<D. SPOK!D.CART!6. DOOR wi ;EXPECTED Al 
4 17158 1 O01 S41 nov #1,€-81 fo eb SED’ Fea! Bi’ 
uae? 17164 0127. 000002 o0S416 MOV #2,£.B2 iRise 1D. ae CTED MSG B2 
4328 biz iss 15933 000003 o0S422 MOV $56.83 MSG 1B FE CTED MSG 83 
4330 017200 737 o44274 JSR PC .CHKMSG Pat MSG Ae BO, al, Bl 
1938 17 : can ERROR 161 RROA AFTER SE SEEK CMD 
4934 ti ty ERROR 185 B° ROR 
4 17214 104164 ERROR 164 fe Bl ERROR 
4937 OL 16 O 3737 O0S466 001366 MOV TIMER, COUNT 
4938 O1 7 047204 JSR PC, TMO 300 1.5 SEC TIMEOUT 
4939 017230 012737 OO00001 oos464 MOV #1’UNITB :SETUP PORT B 
4940 017236 27 19e 056560 MOVB #’8.MSG19A 
494 17 7 41 JSR Pc, DRAV 
uu 17, 1 ERROR 4S ;PORT B NOT AVAIL AFTER TMO 
444 
494S ot Bete 005404 MOV #<D.DRA!O!D. - SPIN!D. OROY#D. “Wee Bah ;EXPECTED MSG AO 
4 7 4 CLR 0 
REM J 17264 Ol 7758 005410 MOV ai. SPOK!D.CART!D A ROSR!B >,—.Al  ;EXPECTED Al 
4o4 617506 737 Bpenr4 005412 Mov a oe -Bl Hog ay MSG B1 
4950 O17 ooe037 b2 005416 MOV 2,£.B2 fog ID Pon Ex EXPECTED MSG B2 
4951 017312 012737 o00003 o05422 MOV #3” —.B3 :MSG ID FOR EXPECTED MSG B3 
4953 017320 004737 O44274 ISR PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 
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4954 017324 Opoeee 

ware Re, i ie 

is Bias RIES 

: 17334 104170 

4960 017336 012737 000017 
496 Bi 7au9 §a4739 043372 
: 017380 104131 

4964 017 137 001412 
ee tian eee Oise 
496 

4968 EL 37 100000 
4969 b173 1401 

: at 017376 104210 

497e 017400 

4973 

4974 017400 012737 050340 
ele 3 01 740g poz0s7 ae t0s 
ie RII Blea Haneat 
49 17426 414 
ies Blees Bless 

4981 

es firs pare owen 
4984 017454 104161 

tee tines ini 

1988 01 ipaies 

4 17464 37 4 
Ge fine Bae foe 
is fine Mere BRIS 
4994 017516 104045 

use 

mas cA Oi zee 0127 a0 
im fires Riese fereee 
Bano 1730 605037 2 4 
BEL Sires Riete 

5003 017560 Ole7 000003 
S005 Bi 7388 737 044274 
$007 017574 416 

S008 017576 ib4iee 

$009 017600 104167 


MACY11 30A( 1052) 
Tle 


005314 
00S3S2 


00S314 


oos404 


410 
4le 


00S416 
ooS4ee 


001366 


OOS464 
OS6S60 


ooS404 


00S410 
o00s41le 


00S416 
oo0s42ee 


65S: 


03- 
TEST 


WORD 
ERROR 
RROR 
RROR 
ERROR 


MOV 
JSR 
ERROR 


FO8 


JAN-78 08:56 PAGE 9% 
RESET PORT ’A’ ATTENTION BY DRIVE CLEAR COMMAND 

o:0!0 3&8 MSGS SPECIFIED HERE 

165 :MSG AD E ERROR AFTER TIMEOUT 

185 Mec 1 RRR 

170 :MSG B81 ERROR 

BSEEK HCS1 

DocmD ;D0 SEEK CMD 8&8 GET CONTR READY 
tte ?NO RDY AFTER SEEK CMD 
T0000 TEMP1 ;SETUP TIMEOUT 
atte *FIND ATTN 

nar :NO ATTN AFTER SEEK CMD 

#CERR,HCS1 

65$ 

210 ;CERR AFTER SEEK CMD 

#<D.DSC!D.DRA!D.SPIN!D.ORDY!D.VV>,E.AO ;EXPECTED MSG AO 

E.B0 “EXPECTED MSG BO 

#<D. SPOK!D. CART!D. DOOR!D. BRHM!D. SSP> >,—.Al  ;EXPECTED Al 

#1.£.B1 ;MSG ID FOR RoE CTED’MSG B1 

Gare B2 Tee TOO EXPECTED MSG B2 

#3,£.83 hee 1B FOR FOR ENPECTE MSG B3 

PC, CHKMSG 3 CHE Al, Bl 

odio ie Rese iE 

161 TER SEEK CMD 

163 ned 80 RROR 

164 :MSG Bt ERROR 

TIMER, COUNT 

PC, TMO 

UNITB ;SETUP PORTC 

#’A.MSG19A 

PC, DRAV 

45 ;PORT A NOT AVAIL AFTER TMO 

#<D.DRA!D.OSC!D.SPIN!D. DROY:0. VV>,E.AQ ;EXPECTED MSG AD 

E.B0 jEXPECTED MSG G60. 

#<D. SPOK!D. -CARTIO 2BR 20. SSP> EAL i ;EXPECTED Al 

E.Ae EXPECT OHSS, Be 

#2,£.B2 OR E CTED MSG B2 

#3,£.B3 fies 1B FOR EXPECTED MSG B3 

PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 

odio :& MSGS SPECIFIED HERE 

165 :MSG ERROR AFTER TIMEOUT 

166 ?MSH BO ERROR 

167 :MSG Al ERROR 


SEG 0096 


GO8 
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1 
3010 017602 104170 ERROR 170 ;MSG B1 ERROR 
sis pisos gueres pnmem paper SEER onzvee 
6 . 

ets Bie bLs pOLEeS teeepte AOD Suite Eke (RS) ORD 1 IF ON PORT B 
201 176e6 2737 o0000S 314 MOV SCLEAR, HCS1 
SBI Biveng fous; Tee EBfon GE100°M BB GIVE PEEP ERAUE Eun SOD™® 
2018 i7o4e 004737 043750 JSR PC, TSTATN : TEST FOR ATTN 
ist 017650 104154 te. ERROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
5023 017652 012737 910340 oos404 Mov 8<D.DRA!D. SPIN!D. DRDY!D. VV» ,£..80 ;EXPECTED MSG AO 
e0S¢ Bi 5ee4 803935 rei 005410 MOV S BUSPOK!D. CART! 8 OODR! B- BREN! .SSP>,E.Al ;EXPECTED Al 
e559 Het need poea td — CLR p16 -81 ee toh nce AS —_ os. 

177 1 005416 MOV #2,£.B2 :MSG FOR EXPECTED MSG B2 
5033 17712 15533 005422 MOV #3,£.83 :MSG FOR EXPECTED MSG 83 
5031 017720 737 o44274 ISR PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 
203¢ 177e4 .WORD T.A2!T.B2!0 pS MSG SPECIFIED HERE 

127 104 33 ERROR Ef iG AO Fron TER DRV CLEAR CMD 
2b 3e 15539 1puose ERROR 3¢ :MSG B° RROR 
5036 017734 104036 E 36 :MSG Bl ERROR 
5038 017736 0137 66 001366 MOV TIMER, COUNT 
5039 pt eoag Baaoa> 047204 JSR PC, TM ;D0 1.5 SEC TIMEOUT 
pO4O 017750 012737 900001 005464 MOV #1’UNITB :SETUP PORT B 

1 0177 1127 102 OS6S560 MOVB #’8.MSG19A 
5042 017764 004737 043750 JSR Pc, TSTATN 
5043 017770 104114 ERROR 114 ;ATTN RESET ON PORT B AFTER DR CLR CMD 
5044 :ON PORT A 
eue 
5047 017772 012737 950340 005404 Mov #<D.DRA!D. DSC!D. SPIND. DROY2D. Vw>, E.AD ;EXPECTED MSG AO 
2549 haunted p03034 ited 005410 MOV SB SPOK!D. CART! DOBRA! BUBRHM! BSSP> ,£.Al ;EXPECTED Al 
S027 os0ne0 poses? possiy CULE eR |etAB’ SeeTED MSG AB Se 
1 005416 MOV #2,£.B2 :M FOR CTED MSG Be 
5053 Bepds2 b1S737 Boodos BoSiee MOY SST ELBS imee 1B FOR EXPECTED MSc BS 
S0ss 004737 oO44274 ISR PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 
5058 000000 .WORD OfF0!0 8 nsGs CIFIED HERE . 
e028 OB 1OUTEE ERROR 16 iMed BO ERROR et TTMEOU 
5059 O20052 104167 ROR 167 :MSG Al ERROR 
2060 020054 104170 ERROR 170 :MSG B1 ERROR 
S0b2e gs RREKRGE GEESE ERE ERK ERR RAR ERE RRRRRRRRE RRR RERRRRRE RARER KE 
5063 j ATEST 13 TEST RESET PORT 'B’ ATTENTION BY DRIVE CLEAR COMMAND 
a 


S06S ;* THE PREVIOUS TEST IS REPEATED FOR PORT ’B’. 
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0404S 
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ees 
10421 


a 
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T13 TEST RESET PORT ’B’ ATTENTION BY DRIVE CLEAR COMMAND 
-% 
 « REGRESS KRKRAKSSRRRRRRESRARSAAARRAAAAARAARARARARAFRARAAAAAAAAAAALAE 
t$T13: SCOPE 
MOV al STIMES ;;D0 1 ITERATION 
MOV as Stac 
MOV 1 UNI i ;SETUP PORT B 
Hey Hifelo ;D0 TIMEOUT 
ISR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
ISR PC, DRAV ;SEE_IF ORIVE AVAIL 
ERROR 45 :PORT B NOT AVAIL AFTER TO 
MOV #SEEK,HCS1 
ISR PC DocmD 50 SEEK agit & SE} CONTR READY 
ERROR ial : TER SEEK CMD 
MOV T TEMP1 TIMEOUT 
JSR pe oParte PING 9 1h 
ERROR 132 NO ATTN AFTER SEEK CMD 
BIT scgresncst 
PEROR 1 ;CERR AFTER SEEK CMD 
64S: 
MOV #<0.DSC!D. DRA!D. SPIN: VV>,E.AO ;EXPECTED MSG AO 
Sov 2 ama CART! ie sPECTED net Bd ;EXPECTED Al 
nov a ab 81 -Bl gare FORE esBeSTES fee tai 
MOV #2,6. 
Moy 8s EBS ines iB Foe f EXEECTER Mec BS 
JSR PC ,CHKMSG Sr nGe See "sBecf Be wet B1 
ERROR 161 te COORD ERR ER SEEK CMD 
ERROR 162 :MSH BO 
ERROR 163 :MSG Al ERROR 
ERROR 164 *MSG Bl ERROR 
MOV TIMER COUNT 
JSR PC, TMO ;D0 1 5SEC T TIMEOUT 
MOV #0’ UNITB :SETUP P 
MOVB #’A.MSG19A 
JSR Pc, DRAV 
ERROR 45 ;PORT A NOT AVAIL AFTER TMO 
MOV #<D.DRA!O!D.SPIN!D.DRDY!D.VV>,E.AQ ;EXPECTED MSG AD 
CLR E.B0 : EXPECTED MSG’ BO 


I08 
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Re 
or 
oe 
ru 
NON 
Ww 
NNN 
Oo 


c. ;EXPECTED MSG Ae 
00S416 MOV #2,&.B2 ;MSG ID FOR EXPECTED MSG B2 


12 330 1 17 p0s419 MOV #<0. SPOK!D. CART! DOOR! D. BRHH! .SSP>,E.Al ;EXPECTED Al 
siz3 030336 B17 Bos4i4 — CCR e145-8! iP pEG >On EXPECTED" - 

1 12737 005416 MOV #2,£. :MSG F CT B 
5188 BSe3ee Bis732 ate 005422 MOV 53°63 a 1B FOR EXPECTED mee BS 
2156 eogap9 ee TiBao | «bros ees epecirtep HERE’ 
S150 Setar 1atibe canon ibe iMG ao ERROR AFTER TIMEOUT 
2133 020376 194167 ERROR 167 :MSG Al ERROR 
e133 020400 104170 ERROR 170 :MSG Bl ERROR 
5135 012737 000017 005314 MOV #SEEK,HCS1 
5136 10 004737 043372 JSR PC. DOCMD ;D0 SEEK CMD 8 GET CONTR READY 
2132 0414 104131 ERROR ial :NO ROY AFTER SEEK CMD 
5139 O20416 013737 OO01412 o05352 MOV TSOO00, TEMP1 ;SETUP TIMEOUT 
5140 geoed 004737 044106 JSR Pc. Fatt2 :FIND ATTN 
rhe 30 104132 ERROR 132 :NO ATTN AFTER SEEK CMD 
5143 32 032737 100000 005314 BIT #CERR,HCS1 
5144 neater reget BEQ 65$ 
eis o20442 104210 ERROR 210 ;CERR AFTER SEEK CMD 
B17 o20444 65S: 
3149 rete 737 950340 o0S404 Mov BRepset0. nas. SPABER HED nee BY. "ee ;EXPECTED MSG AO 
5151 S56 012737 001720 005410 MOV #<D. SPOK!D.CART!D. DOOR! O BHHN! BUSSP> ,E.Al ;EXPECTED Al 
2125 Deouze basa a CR | ORLAB’ eesecreD SG Ae 
5154 0476 012737 005416 MOV #2,£.82 :MSG ID FOR EXPECTED MSG Be 
2155 O20S04 012737 000003 o05422 MOV #3/£.83 :MSG ID FOR EXPECTED MSG B3 
sie SEOs Gpwey ONE” "Ban BFSfKK"S? —_SMESKSMEDE. APs eBPreRl” 
sled Geuees IOMteh foe id nse Eamon "TER SEEK cro 
Sib Ge0be4 104163 ERROR 162 :MSG Al ERROR 
elbe 104164 ERROR 164 :MSG Bl ERROR 
5164 020530 013737 OOS466 001366 MOV TIMER, COUNT 
5i6S O205 535 047204 JSR PC, TM 
BIBE 02054 12737 000001 o0S464 MOV #1’ UNITS ;SETUP PORTC 
5167 O205 112737 000102 OSéS60 MOVB #’B.MSG19A 
5168 O205 004737 044172 ISR Pc, DRAV 
2169 pSpces 104045 ERROR 4S ;PORT B NOT AVAIL AFTER TMO 
5171 
2172 4 12737 g50340 o0S404 Mov 8<D.DRA!D.DSC!D. SPIN!D. DROY!D. Vv> ,£.AO ;EXPECTED MSG AO 
5174 6 012737 0017 005410 MOV #<D.SPOK!D.CART!O. 10.BRHM!0.SSP>,£.Al ;EXPECTED Al 
2178 i] 005412 MOV #1.€.B1 ;MSG ID FOR EXPECTED MSG Bl 
5177 
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5173 020624 012737 ocD00003 o0s422 MOV #3,€.83 ;MSG ID FOR EXPECTED MSG B3 

130 020632 004737 044274 ISR PC, CHKMSG i CHECK MSGS AO, BO, Al, Bl 

1 .WORD oO'O!0 & MSGS SPECIFIED HERE’ 

i beue jouiee ERROR ee its Bh leet memmat | 
at 44 104167 ERROR 167 :MSG Al ERROR | 
bigs 46 104170 ERROR 170 :MSG B1 ERROR 

ise SO 012765 100000 ooD0000 Mov SCCLR, RKCS1(RS) 

198 56 013765 OO0leee 000010 MOV - SUNIT;RKCS2(RS) ;DRIVES | 

1 4 3788 005464 000010 ADD UNITB’RKCGS2(RS) ';ADD 1 IF ON PORT B 
5190 27 000005 005314 MOV #CLEAR, HCS1 
5191 737 043372 JSR PC. DOCMD 300 DRIVE CLEAR CMD & GET CONTR RDY 
2135 b6433> 43750 ERROR a Twain 
5194 Oe071le oo0401 BR 66$ ; 

2136 ge07 14 104154 aati ERROR iS4 ;ATTN NOT CLEARED PFTER DRIVE CLEAR CMD 
5197 i 
2138 16 12737 910340 o0S404 Mov 8<D.DRAID. .SPIN!D. -DROY 2D. VV ,£..80 ;EXPECTED MSG AD 
5200 18737 001720 005410 MOV #(D. SPOK!D. CART!6.DOOR!D.BRHM!D.SSP>,E£.Al ;EXPECTED Al 
Gens Getras ierae Gyogty oosne ay Bel HBiBelteb Repasc ne en 

020750 012737 02 oos416 MOV #2,£.B2 ise o Pon E EXPECTED MSG Be 
pe0s 020756 012737 oo00003 O054ee MOV #3,£.83 MSG 1p FOR EXPECTED MSG 83 
eS0e 4 004737 044274 JSR PC, CHKMSG somes MSGS AO, BO, Al 
5207 WO T.A2!T.Be!0 mSGS SPECIF PteB HERE 
Be fo NBG BB Garon AFTER Onv CLEAR crm 
5210 104035 ERROR 35 ?MSG Al ERROR 
bell 021000 104036 ERROR 36 :MSG B1 ERROR 
5213 1 3737 OOSY66 001366 MOV TIMER, COUNT 
5214 101 737 047204 JSR PC, TMO ;D0 1.5 SEC TIMEOUT 
5215 1014 012737 Oo0000 oos46e4 MOV #0’ UNITB :SETUP PORT A 
be 16 021022 112737 000101 OS&S60 MOVB #’°A,MSG19A 
5217 021030 004737 043750 JSR Pc, tSTATN 
5218 021034 104114 ERROR 114 arth N RESET ON PORT A AFTER DR CLR CMD 
ess, 
pece 921036 37 O340 005404 Mov a | ames .DSC!D. - SPIN20, OROVD. .VV>,E.AO ;EXPECTED MSG AO 
255¢ GSinee ois737 oDnOBY Opeuis ry 8<D SRO. CART ARG To. FoR EXPECTED" ne 
peek 021064 37 005414 CLR E.Ae EXPECTED 
S227 021070 O12737 OO0002 oOSs416 MOV #2,£.B2 MSG ID POR EXPECTED MSG B2 
pees 021076 012737 Oo00003 o0S42e MOV #3,£.83 MSG ID FOR EXPECTED MSG Ba 
5230 021104 737 O44274 PC, CHKMSG Q 
5231 Oe1110 000 . TPE RD Ofara +e eks SpECTPTED HER E 
Se3se Oellle 104165 ERROR 16S :MSG AD ERROR AFTER™ TE MEOUT 
S233 021114 104166 ERROR 166 :MSH BO ERROR 

| 


CZR6GBO RK611 DU PORT LGC TST MACY11 30A(10S2)_ O3-JAN-78 08:56 PAGE 101 SEQ 0101 
CZ2R6GB.P11 


03-JAN-78 08:46 T13 TEST RESET PORT ’B’ ATTENTION BY DRIVE CLEAR COMMAND 
S234 021116 104167 ERROR 167 ;MSG Al ERROR 
3 621120 104170 ERROR 170 :MSG B1 ERROR 
4 . jee eee TNRELEnee DRIVE SEIZED BY PORT A’ 
2638 ; ATE T 14 TEST RELEASE, DRIVE SEIZED BY PORT ’A’ 
Bed i A. SEIZE THE DRIVE THRU PORT ‘A’ 
ees i B. ISSUE A RELEASE USING RKCS2 THRU PORT ’A’ 
1 i C. VERIFY PORT ’B’ CAN ACCESS THE ORIVE IMMEDIATELY & 
pes # THAT NEITHER PORT SEES ’DSC’ OR ’A 
S247 : + REKKEGERRERREREREERREARERRERK ARSE RARER RAARARE RAR AKRRA RAK KLAARAKRAKEE 
5248 021122 oo0004 $6714: SCOPE 
5249 Oelle4 012737 o00001 001174 MOV #1, STIMES ;;DO 1 ITERATION 
5250 1132 bie? 901109 MOV aStack, SP 
525 11 16737 0000 oos464 MOV a0, UNIT ;SETUP PORT A 
Se 1144 1127 00010i OS6S560 MOVB MSG19A 
5253 Gel 152 13737 OOS466 001366 MOV ont COUNT 
peed 0211 737 047204 JSR PC, TMO ;D0 TIMEOUT 
52 1164 004737 oO4SS534 JSR PC, SUBCLR 
ES ps tisa 104024 ERROR 24 ;CERR AFTER SCLR 
3 
5260 1172 004737 044172 ISR PC, DRAV ;SEE_IF DRIVE AVAIL 
5261 il 1 ERROR 45 PORT A NOT AVAIL AFTER TMO 
pebe 1 O1 001222 000010 MOV SUNIT.RKCS2(RS) SETUP FOR PORT A 
1 1 005464 MOV #0, UN 
5264 1214 464 000010 UNtTE RKCS2(RS) 
5265 le 7 101 05656 MOVB 198 
Bebe le 1 01 ADD re S2cRs) ;RELEASE PORT A 
1e36 O1 85 1 314 MOV PpRY. Rest 
5268 021244 737 043372 JSR pocmd ;00 SELDRV (STATUS) CMD & GET CONTR RDY 
pea 021250 104117 ERROR P5400 ?NO RDY AFTER SEL DRV CMD 
5271 O21252 013765 o01222 000010 MOV SUNTT RKCS2(RS) ;SETUP FOR PORT B 
5272 021260 613383 000001 o0S5464 MOV UNITB 
52°73 Oele6& 063765 005464 000010 ADD UNtTB RKCS2(RS) 
5274 Gel 74 118737 000102 O56560 MOVB 159A 
5275 1 12737 000001 005314 MOV SSECDRY HCS1 
5276 Gei31 004737 043372 JSR PC, DOCMD ;D0 SELDRV_(STATUS) CMD & GET CONTR RDY 
2677 1314 104117 ERROR 11? :NO RKY AFTER SEL DRV CMD 
5279 021316 032737 o00040 o0S342 BIT #0. DRA, HMR2 ;SEE_ IF DRIVE AVAIL ON PORT B 
5280 021324 001001 BNE 64S : F 
ee8) 021326 104071 at ERROR 71 :PORT B NOT AVAIL AFTER PORT A RLS 
5283 1330 004737 043750 : ISR PC, TSTATN 
5284 1334 000401 BR 1$ 
528s 1336 104115 ERROR 115 ;ATTN SET IN PORT B AFTER RLS OF PORT A 
pe86 021 1S: 
S288 021340 012737 010340 oOos4O4 MOV #<D.DRA!D. SPIN!D. DRDY!D. VV> ;EXPECTED MSG AD 
5289 021346 005037 O0S406 CLR E.B0 ; EXPECTED nee B 





ceneggo RK611 OU PORT LGC TST MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 102 SEQ 0102 


CZ2R6GB.P11 03-JAN-78 08:46 T14 TEST RELEASE, DRIVE SEIZED BY PORT ’A’ 
30 1 1 7 005410 MOV #<D.SPOK!D.CART!D.DOOR!D.BRHM!D.SSP>,E.Al ;EXPECTED Al 
91 081360 818333 00004 005412 nov #1,6-81 sMSG I efOR.E CTED'’MSG B1 

252s 851368 12737 005416 MOV #2,£.B82 :MSG {0 Pon 2 CTED MSG B2 
94 021400 012737 o000003 ox0S542e2 MOV #3,£.83 :MSG ID FOR EXPECTED MSG B83 
Be 021406 004737 044274 JSR. PC ,CHKMSG See MSGS AD BO, al, Bl 
2638 Ge1sis 104133 ERROR 133 ee AG ERROR TF ied ene RELEASED TO PORT B 
ean; BSidss iByise ERROR = t nee Bt ERRoe 
5302 
14 012737 oo0000 oos464 MOV #0, UNITB sADDRESS PORT A 
2300 Oe1us2 18535 SOoror osecco Move = SPACNSG ' 
Se aie Bee she 10..6*7 Te 
re ee 
BS tide OBgite PRROR Ifs FAP AFTER RLS ISSUED 
5309 921450 012737 010340 oo0S404 Mov aD. .DRA!D.DRA!D. - SPIN!D. DROY:D. .VV>,E.AO ;EXPECTED MSG AO 
231 atts 12737 17 005410 MO #<D.SPOK!D.CART!D. BOO! 5° BRHM!0.SSP>,E.Al ;EXPECTED Al 
531 1470 O01 005412 #1,£.B1 iexeette FORE CTED’MSG B1 
est 1478 7 414 CLR E.Ae 
14 1 12737 005416 #2,£.B2 S¢ 1D OR EXPECTED MSG B2 
esis 021510 012737 o00003 ocDs42e MOV #3,£.83 mse ID FOR EXPECTED MSG B3 
5317 921516 004737 0O44274 JSR PC, CHKMSG ;CHECK MSGS AO B1 
5318 02152 WOR ofd!o :& MSGS SPECIE LED HE RE’ 
2313 Geise4 : mae ERROR gil ; MSG RROR AFTER RELEASE ISSUED 
23st 021530 104213 ERROR 213 ;MSG Al ERROR 
b3ee 021532 104214 ERROR 214 :MSG B1 ERROR 
S324 : iteer is TEST RELEASE DRIVE SEIZED BY PORT B'S 
23s j ATES TEST RELEASE, DRIVE SEIZED BY PORT ’B’ 
2367 i THE PREVIOUS TEST IS REPEATED FOR PORT ’B’. 
eae) 021534 oo0004 j{ sosseuennansnesenasnessesnnsnsenssnsssuasssssusunnnnuanasnanans 
233) 921536 bie? 7 gg0001 001174 MOV al STI S ;;D0 1 ITERATION 
1544 0127 11 MOV ast CK 
5333 021550 012737 OO00001 oos464 MOV 1 UNITE ;SETUP PORT B 
5334 Ge 1556 118737 000102 6560 MOVB Hes 
5335 1564 013737 OOS466 001366 MOV TineR? Ba ONT 
2336 021572 004737 047204 JSR PC, TMO ;DO TIMEOUT 
021576 004737 045534 JSR PC, SUBCLR 
1 1040 ERROR 24 ;CERR AFTER SCLR 
5341 
5342 021604 004737 oO44172 ISR PC, DRAV ;SEE_IF DRIVE AVAIL 
5343 021610 10404S ERROR 45 :PORT B NOT avaTL AFTER TMO 
5344 Oel6le 013765 o01222 o00010 MOV S$UNIT,RKCS2(RS) ;SETUP FOR PORT B 
5345S 021620 012737 OO00001 o0S464 MOV #1,UNITB 


CZR6GBO RK611 DU PORT LGC TST MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 103 SEQ 0103 
CZR6GB.P1i1 03-JAN-78 08:46 TiS TEST RELEASE, ORIVE SEIZED BY PORT 'B’ 


Cn OC ae 


e349 85} 
534 164, 10 10 ADD & RKCS2(RS) ;RELEASE PORT B 
Fe Ripe Bherae Rage) Oa8 wis Ney eeLpevaresi 00 SELORV (STATUS) CMD & GET CONTR RDY 
5351 O2i662 104117 ERROR 117 NO RDY AFTER SEL DRV CMD 
Eiet GIG92 G1378) BG1868 SRDNIa yy gyeszcns) :SeTur Fon pont 0 
5355 021700 063765 005464 000010 B00 cM RKCS2(RS) 
1508 bterae BaGHG Geese «= ARN ESP sy 
0217 7 ; ISR ELORY (STATUS) CMD & GET CONTR RDY 
621726 104117 ERROR Y AFTER SEL ORV 
5361 021730 032737 oD0040 o0S342 BIT stengoad SEE IF DRIVE AVAIL ON PORT A 
Bes 881740 84894 shi Eifion 9 ‘Boat a VROT AVAIL AFTER PORT B RLS 
5365 021742 004737 043750 ; JSR PC, TSTATN 
5366 Oel O1 BR 1§ 
ees 061750 104115 on RROR 115 ;ATTN SET IN PORT A AFTER RLS OF PORT B 
5370 021752 012737 010340 o0s404 Mov 8<D.DRAD. .SPIN!D.DRDY!D. .WV) .E. .AO ;EXPECTED MSG AD 
235 B513e4 893935 BOT 7e8 005410 MOV &<B_SPOK!D.caRT? 6. Boon !B; BRHM! .$ P>,E.Al_ ;EXPECTED Al 
Basa Pelr7e O01 O0541e Mov Hg -81 Bl if FOR § CTED’MSG B1 
5375 Oe2004 012737 OO000e o0s5416 MOV #2,£.82 :MSG ID FOR EXPECTED MSG Be 
%& Oee0le 012737 00003 oDSHze MOV #3,£.83 *MSG ID FOR EXPECTED MSG B3 
2 ete 890000 saree =HORD orto hie Bact Bbc heccar TO PORT A 
ca) Sess IRs ae 1s te 8 ee 
a Bssos4 pulse ERROR 135 ng Bi ERROR 
022036 012737 000001 ons464 MOV #1,UNITB scones PORT B 
5386 022044 112737 000102 OS6560 MOVB = #’B, MSG19A 
B38 Bs5ee a3 043750 JSR pC ts ATN 
8 TSti ;;GOTO NEXT TST 
5389 02 10411 ERROR 115 :ATTN SET AFTER RLS ISSUED 
ete) 737 es o0s5404 MOV #<D.DRA!D.DRA!D.SPIN!D. v20. vv .VV>,E.AQ ;EXPECTED MSG AD 
CLR —.80 - EXPECTED 
2345 Oesi02 o1s737 pod0d! Dosis yO, Spout. CARTIO, fg. 10. pSresee® fo’Nse er 
5395 $5595 50 005414 CLR —E.Ae > EXPECTE 


e397 Bssise 818737 Boopos Bpeues MOV SEBS tse $8 Fa “EE od ¥ . 
2333 922130 904737 044274 JSR. PC, CHKMSG 5 pHEK MSGS a0 BO. 
401 2136 104211 ERROR gil” :MSG 4 ER Tt teD bere e. scat ISSUED 
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CZR6GBO RK611 
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5403 


BSRR9 


3 


bb bs be be be he ee 


WII UU UU 
SELLE LCLCLSI£C£ pp pr 
Saw NonsurM-O 


S4el 


BERRA UNS 
PRT oes 


RRB 


Oee3e4 


TST 
:46 


MACY11 30A( 1052) 


o00S342 


oos404 
005410 


03-JAN-78 1 
RELEASE, ORIVE SEIZED 


NOS 


08:56 


PAGE 


T1sS TES Y 
ERROR 313 ;MSH 
ERROR +3 ;MSG. A 
ERROR ; MSG 
16 
A. PORT ’A’ SEIZES THE DRIVE 
THE een, VERIFIES ’OSC’ 


B> 


ARE 


SESE TT TTT TT TT TTT Te 
4 


ON COMPLETION 


B. PORT ’B’ TRIES TO ACCESS THE DRIVE. 
DRIVE NOT AVAILABLE 


SEEN ON PORT ’B’ 


& DOE 
& ATTN’ 


SSUED. 
LY & THAT ’DSC’ 


= aE eS Ae ee SE aE SE aE J a 0 0 a aa a a a a a a a 
T TEST RELEASE FROM PORT ’A’ WITH PORT ’B’ REQUESTING 


A SEEK TO SELF COMMAND. 
ON PORT °A’ 


ONLY 


THE PROGRAM VERIFIES 


VERIFY PORT °B’ CAN 


*ATTN’ 


D. VERIFY PORT ’A’ ’DSC’ & *ATTN’ REMAINS SET AFTER RELEASE 


IVE CLEAR COMMAND TO PORT °B’ 


THAT PORT °B’ DOES NOT SEE 


og FROM WHAT WOULD HAVE BEEN 


E. THE PROGRAM ISSUES A 
& VERIFIES 'DSC’ & ‘ATTN’ RESETS. 
F. THE PROGRAM T' SALIENT 
aU ll (MULTIPLE) ATTENTI 
NORMAL TIMEOUT FROM POR 


ee ne Te 


+éT16 Cc 
MOV #1, STIME ;;D0 1 ITERATION 
MOV aStAck,S 
MOV SUNIT. *xCS2(RS) ;SETUP FOR PORT B 
MOV #1 unt TB 
ADD UNI TB, RKCS2(RS) - 
MOVB #’B.M5G19A 
ADD #RLS,.RKCS2(RS) ;RELEASE PORT B 
MOV #SELORV,HCS1 
JSR PC, DOcMD 300 SELDRV_(STATUS) CMD & GET CONTR RDY 
ERROR 11? :NO RDY AFTER SEL ORV CMD 
Mov SUNIT RKCS2(RS) ;SETUP FOR PORT A 
ADD UNI TB. RKCS2(RS) 
MOVB #’A,M5G19A 
MOV #SELDORV,HCS1 
ISR PC. DOCMD ;D0 SELDRV_(STATUS) CMD & GET CONTR RDY 
ERROR 11? :NO RKY AFTER SEL DRV CMO 
BIT #0 ,ORA, HMR2 ;SEE_ IF DRIVE AVAIL ON PORT A 
a ERROR 71 :PORT A NOT AVAIL AFTER PORT B RLS 
MOV #<D.DRA!D.DRA!D.SPIN!D.DRDY!D.VV>,E.AQ ;EXPECTED MSG AO 
CLR .BO -EXPECTED MSG B 
MOV #<D. SPOK!D.CART!O.DOOR!D.BRHM!D.SSP>,E.Al 


;EXPECTED Al 


SEQ 0104 


c RK611 DU PORT LGC TS 
Cores eT 08:46 


737 1 o0S4le 
1 aoe 416 
1 poeuee 


47 . 
5478 2404 0127. 00n017 005314 
| S47 aan p55 043372 
oe O2e416 104131 
S4 24 013737 OO01412 o0S3S2 
| Ye eat 737 044106 
ey O2e432 104132 
| 5480 2434 032737 100000 005314 
| 548i Geev42 O014 
| m4 2444 104210 
Eig) ose 
oY 404 
sig? Geeuss Qoscs7 DoswdR O 
S488 le Acee 005410 
sie} ‘eaten 
549 1 4 
sieh SS5eh? Glee; SERS SRELIS 
edad geesi4 004737 o44274 
alae eSee 104161 
suse 08656 oul 
439 028630 1o4ie4 
S 02 012737 o00001 o0S464 
5503 0225 112737 000102 OS6560 
ene Qessee a 044172 
2 bese 4 104103 
5508 d22e556 737 4 
2508 022556 932 7 100000 00531 
eet Oeesé66 = 104130 
SSle 022570 004737 7 
6513 022574 Bo0401 singhse 


MACY11 30A(10S2) 
T16 


1S: 


es: 


03-JAN- 78 08:56 

TEST 

MOV #1,£.81 
CLR E.Ae- 

MOV #2,£.B82 
MOV #3,£.83 
ISR PC, CHKMSG 
: ofbio 

ERR 2il 

RROR gle 

RROR el 

ERROR 214 

SR PC, SUBCLR 
ERROR 24 

MOV #SEEK 

JSR PC BSOHD 
ERROR ‘SI 

v T0000 TEMP1 
JSR PC, Fatte 
ERROR 

BIT #CERR, HCSI 
BEQ 65 
ERROR 210 

MOV w ,Dsc!D. DRA!D. 
CLR 
HOW #1,€.B61 
Sou Eshe 
Moy CSTE BS 
JSR PC, CHKMSG 
.WORD Of0!0 
ERROR 161 
ERROR 162 

RR 163 
ERROR 164 
MOV #1,UNITB 
MOVE #’B, MSG19A 
JSR PC, DRAV 
BR 1$ 
ERROR 103 
BIT #CERR,HCS1 
BNE 2s 
ERROR 130 
ISR PC, TSTATN 
BR 3$ 


SPIN!D D.WV>, E.AO 
Sib. OSPOK!D. CART! Pe: (Patek 


AGE 105 
RELEASE FROM PORT rar WITH PORT ’B’ REQUESTING 


Al, Bl 
RELEASE ISSUED 


;CERR AFTER SCLR 

;D0 SEEK CMD & GET CONTR READY 
NO RDY AFTER SEEK CMD 

oer 1ieour 

;FIND_A 

;NO ATIN TAFTER SEEK CMD 


;CERR AFTER SEEK CMD 


;EXPECTED MSG AD 


;EXPECTED Al 
efED" ASG B1’ 


feb bse 
Ree 1B FOR EXPECTED nee 6S 


s CHEC Al, Bl 
:& MSG fo Sec HF LED HERE 

?MSG a0 ERROR AFTER SEEK CMD 
3;MSH 

?MSG AL ERROR 

:MSG B1 ERROR 

;SETUP PORT B 


;SEE IF DRIVE AVAIL 
;PORT B AVAIL BEFORE TMO OR RELEASE 


;CERR NOT SET AFTER SEL DRIVE CMD 
;8 NO DRA 


SEQ 0105 


Se ee ee 


nui) 


tat 


Ba HEA ELA 


_ CZR6GBO RK611 DU PORT LGC TST 
CZR6 


-Pll 03-JAN-78 08:46 


022576 


l2 


4) 


stat Sete See 


WWWWW G) 
See ee 
Nlron 8 


104115 


MACY11 i Seamed 





66S: 


TES? REL 


ERROR 


LEASE pests FP WITH PORT 'B’ REQUESTING 


115 


Sunt FKESECRS) 
si ReCS2(RS) 


sirehachas (RS) 


#SELORV,HCS1 
PC pocmé 
11? 


SUNIT pBKCSECRS? 

1¥8 Recs2cRs) 

a: 
8) 


Cs -Uss 


KPO 
3 
Ra 
3 


TSTATN 


—- v0 N 
Mo 


2 


#<0.DRA!0.0SC!D.ORA!D. pat ATA stew VV> ,E.A0 


6{D_ SPOK? !D.CART! 1D. Al 
np See BPELECERES alt 


" CHKNSG 
tet 


Y SRCERCRS) 3 
RKCS2(RS) 


;ATTN SET IN PORT ® AFTER RLS FROM PORT A 


;SETUP FOR PORT A 


;RELEASE PORT A 


RQ SBUPRYTEATEILSZeG"Bnb SET CONTR ROY 


;SETUP FOR PORT B 


;D0 SELDRV_ (STATUS) CMD & GET CONTR RDY 
;NO RKY AFTER SEL DRV CMD 


i SEE Py "ie AVAIL ON PORT B 
‘Bort B NOT AVAIL AFTER PORT A RLS 


;NO ATTN IN PORT B AFTER RLS FROM PORT A 


;EXPECTED MSG AO 


-EXPECTED MS 
;EXPECTED Al 


ined 1B FOR EXPECTED nee 3 
; CHECK Mess. Ad BO, Al, 81 


het 68 si hep fe Pe case ISSUED 


G Al ERROR 
ee B1 ERROR 
;SETUP FOR PORT B 


;RELEASE PORT B 


;D0 SELDRV_(STATUS) CMD & GET CONTR RDY 
7NO ROY AFTER SEL DRV CMD 


;SETUP FOR PORT A 


eS ay 


SEQ 0106 


CZR6GBO RK611 
CZR6GB.P11 


DU PORT LGC TST 
03-JAN-78 08:46 


004737 043372 
104117 


rf 000040 
104071 


043750 


704738 


i 
I 


e 
3 
4 
Ss 


ra 
28 


thaw 
BIER 

Risto ororont 
Sree eR 
ate 

3 

LOM 
fen 


BeeRasnens 


001222 
fees ee Be 
127 

737 043372 


a 
WONOULSWe-oO. 
~ 
2 
| 
-_ 


taal alata al at ata 


ROERER 





MACY11 30A(10S2) 
T16 


o00S34e2 


67S: 


= 


68S: 


sige 

if 
300810 
005314 


03-JAN-7 


ISR PC, DOCMD 
ERROR 11? 
I #0,0RA, HMRe 
ERROR 71 
PC, TSTATN 
2RBor Sy 
bey 
MOV 
CLR Ae 
HBy $5°E:BS 
ISR PC CHKMSG 
eReor Bit 
oe 
ERROR 81a 
MOV SUNIT, RKCS2(RS) 
Vv #0, UNITB 
t B.RKCS2(RS) 
MOVE #’A,MSG19A 
#RLS, RKCS2(RS) 
v Si 
JSR P 
ERROR 11? 
MOV SUNIT, RKCS2(RS) 
Boy atta eccsaces 
Hove oe Rect SA 
MOV aSEL HCS1 
JSR PC, DocMD 
ERROR 11? 
BIT # DRA, HMRE 
ERROR 7 
v #CCLR, RKCS1(RS) 
Vv $ TT, Rk sath) 
D ITB’ RKCS2CRS) 
MOV #CLEAR, HCS1 
Zor PC DOCMD 
ROR 1 
ISR PC, TSTATN 
BR 69$ 
ERROR 154 


8 08:56 PAGE 107 
TEST RELEASE FROM PORT ’A’ WITH PORT 'B’ REQUESTING 


SEQ 0107 


RO SELDRV_(STATUS) CMD & GET CONTR RDY 


NO RKY AFTER SEL ORV CMD 


SEE IF, DRIVE AVAIL ON PORT A 
;PORT A NOT AVAIL AFTER PORT B RLS 


;ATTN CLEARED IN PORT A AFT RLS FROM PORT B 


Bs aie .-0SC!D RERPECTED ARG BD .VV>,E.A0 
aor !D.CART iHSe16 pGR EXPECTED’ FQ, ;EXPECTED Al 


a 1B FOR EXBEGTEB HS8 63 


;CHECK MSGS AO pO. Al, 


te: PROM AFR sal ISSUED 


te &t RROR 
oe Tur “FOR PORT A 


;RELEASE PORT A 


;EXPECTED MSG AOD 


;D0 SELDRV_ (STATUS) gE GET CONTR RDY 


;NO ROY AFTER SEL DRV C 
;SETUP FOR PORT B 


;00 SELDRV_ (STATUS) CMD & GET CONTR fay 


;NO RKY AFTER SEL DRV CMD 


;SEE_IF DRIVE AVAIL ON PORT B 


;BR IF YES 


;PORT B NOT AVAIL AFTER PORT A RLS 


;ORI 
;AD 


VE # 

01 
3D 

ROY 
tTEST F 


IF ON PORT B 


AFTER DRIVE CLEAR CHD 


NTR RDY 


;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 





CZR6GBO RK611 DU PORT LGC TST MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 108 SEQ 0108 
CZR6GB.P11 03-JAN-78 08:46 T16 TEST RELEASE FROM PORT ’A’ WITH PORT 'B’ REQUESTING 
S526 023450 69S: 
at 023450 012737 010340 oOs4O4 MOV #<D.DRA!D.SPIN!D.ORDY!D.VV>,E.AO ;EXPECTED MSG AO 
OOS'06 CLR E BO - EXPE TED MSG ,B0 
1 17 005410 MOV #<D.SPOK!D.CART!O. SOOR! ~BRHM!D.SSP>,E.A1l ;EXPECTED Al 
i 12737 000001 o0541e2 MOV #1,€.B1 ;MSG ID FOR EXPECTED MSG B1 
pose gos414 CLR E.Ac. j EXPECTED NSS Ae 
12737 005416 MOV #2,£.82 :MSG 1D OR EXPECTED MSG 82 
2634 i 12737 000003 005422 MOV #3,£.83 :MSG ID FOR EXPECTED MSG B3 
56 7 044274 JSR PC, CHKMSG ;CHECK MSGS AO, BO, Al 
.WORD T.A2e!T.B2e!0 -& MSGS BPE Cie teD HERE 
104033 ERROR 33 ;MSG AO ERROR AFTER ORV CLEAR CMD 
2639 104034 ERR 34 ;MSH BO ERROR 
1 035 ERROR 35 ?MSG Al ERROR 
pou 104 RR 36 :MSG Bl ERROR 
43 34 0137 OO0S466 001366 MOV TIMER COUNT 
44 7 047204 ISR PC, TMO ;D0 1.5 SEC TIMEOUT ON PORT B 
4S 737 043750 ISR PC TSTATN 
46 35 000401 BR TSt1 4GoT° NEXT TST 
47 023554 104144 ERROR 144 T ATTN ON PORT B 
Bg : “epreeegreceenene ree ne neeneepeneanereere pea reneaneneeneaneneaney 
20 ;ATEST TEST RELEASE FROM PORT ’B’ WITH PORT ’A’ REQUESTING 
5652 is THE PREVIOUS TEST IS REPEATED FOR PORT 'B’. 


oo 
ria 


+ BG MG 3 36 M6 HE HEE HE HEE HE EH HE HE HE eH HEE EE HE RRR ERE E RAE RRE RE 





5655 +6717: SC 
Bees HOV #1 + SUIME ;;D0 1 ITERATION 
se88 MOV Suni RKCS2CRS) ; ;SETUP FOR PORT A 
565 MOV #0 pyntte 
5660 ADD UNt RKCS2(RS) 
566 MOVB #’A regi 
ADD #RLS S2(RS) ;RELEASE PORT A 
MOV #SELORV,HCS1 
5664 SR PC, DOCMD ;D0 SELORV (STATUS) CMD & GET CONTR RDY 
eee RROR 11? :NO ROY AFTER SEL ORV CMD 
566 MOV SUNIT,RKCS2(RS) ;SETUP FOR PORT B 
MOV #1, UNtTB 
ADD Unt B. RKCS2(RS) 
MOVB #’B,MSG19A 
567 MOV #SELDRV,HCS1 
56 JSR PC, DOCMD ;D0 SELDRV_(STATUS) cng & GET CONTR RDY 
2e73 ERROR 11? :NO RKY AFTER SEL ORV CMD 
56 BIT #D.DRA, HMR2 ;SEE_IF DRIVE AVAIL ON PORT B 
56 BNE :BR IF _Y 
56 ERROR :PORT B NOT AVAIL AFTER PORT A RLS 
a4 | 64S: 
5680 023722 012737 010340 OOS4O4 MOV #<D.DRA!D.DRA!D.SPIN!D.DRDY!D.VV>,E.AO ;EXPECTED MSG AD 
5681 37 005037 o0S4O6 CLR E.B0 ;EXPECTED MSG BO 
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O3-JAN-78 08:56 PAGE 109 
TEST RELEASE FROM PORT 'B’ WITH PORT 'A’ REQUESTING 


#<D.SPOK!D.CART!D. DOOR:D. BRHM! .SSP>,E.Al_ ;EXPECTED Al 
#1,£.B1 ;MSG 10 FOR PECTED’ ASG Bl 
E.Ao > EXPECTED Se AS 
He, £.B2 >MSG 1D F FOR E CTED MSG Be 
#3,£.8 ;MSG FOR CTED MSG B3 
PC, CHKMSG ; CHECK Al, Bl 
ofdto 8 Ets Specirte HERE’ 
ell :MSG 80 ERROR AFTER RELEASE ISSUED 
12 ;MSH RROR 
13 ?MSG Al ERROR 
14 :MSG Bl ERROR 
, SUBCLR 
24 ;CERR AFTER SCLR 
#SEEK,HCS1 
PC DOCMD ;D0 SEEK CMD & GET CONTR READY 
131 :NO ROY AFTER SEEK CMD 
cn ale fate TIMEOUT 
NO ATTN AFTER SEEK CMD 
HERR, ,HCS1 
10 ;CERR AFTER SEEK CMD 
a p.psc! 'D.DRA!D. SEADERIED DY20. Vv ,E. .AO ;EXPECTED MSG AD 
#<D. SPOK!D. cAarT!D 09 OR! Sere SSP>,E.A EXPECTED Al 
#1,£.81 MSG 10 FOR CTED ASc-B 
re B2 pare 1D FOR CTED MSG 
» "EBS >M5G CTED Nee B 
PC, CHKMSG ; CHECK Al, Bl 
ofdto cirte EB He HERE 
161 isc AFTER SEEK CMD 
162 :MSH BO ERROR 
163 :MSG Al ERROR 
164 ?MSG Bl ERROR 
#0,UNITB. ;SETUP PORT A 
Pc, RAV ;SEE IF ORIVE AVAIL 
103 ;PORT A AVAIL BEFORE TMO OR RELEASE 
#CERR,HCS1 
130 ;CERR NOT SET AFTER SEL DRIVE CMD 
PC, TSTATN . 


SEQ 0109 
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TEST 


ERROR 


JAN-78 08:56 PAGE 110 
RELEASE FROM PORT ’B’ WITH PORT ’A’ REQUESTING 

3$ 

115 sATTN SET IN PORT A AFTER RLS FROM PORT B 

#CCLR,RKCSI(R 

SUNT FueSat ;SETUP FOR PORT B 

si Unt Re S2(RS) 

eranach 

eRLS RK Se(RS) ;RELEASE PORT B 

PC Boend :00 SELDRV (STATUS) CMD & GET CONTR RDY 

11? NO RDY AFTER SEL DRV CMD 

SUNTT |AKCS2(RS) ; cn FOR PORT A 

oNt Te RKCS2(RS) 

#’A,MSG19A 

BSELORV, HCS1 

PC, DOCcMD ;D0 SELDRV_(STATUS) CMD & GET CONTR RDY 

11? ;NO RKY AFTER SEL DRV CMD 

#D. DRA, HMR2 SEE IF D DRIVE AVAIL ON PORT A 

:PORT A fee AVAIL AFTER PORT B RLS 

PC, TSTATN 

122 ;NO ATTN IN PORT A AFTER RLS FROM PORT B 

aD. DRA!D.DSC!D. DERBRL TER Bs DROY!D. .VV>,£.A0 

a<D. SPOK!D. can 6. 2Q0R?0 .BRHM!D. -SSP>,E A Al EXPECTED Al 

i selebonsb ager? Fee 

EA ‘ae 0 10 RoR 3 CTED MSG B2 

#3,£.83 mec G I0 FOR EXPECTED MSG 83 

Srefe> i SMRKMERE OP PPueht 

gil HRs 60 Hse AG ER ar teD He RELEASE ISSUED 

sig et ft ee 

SUNTT  AKCS2¢RS) oe tue FOR PORT A 

UNI TB, RKCS2(RS) 

#’A,MSG1SA 

#RLS, RKCS2(RS) ;RELEASE PORT A 

PC boeMd ;D0 SELDRV_ (STATUS) CMD & GET CONTR RDY 

117 :NO RDY AFTER SEL ORV CMD 

SUNTT  RKCS2(RS) ;SETUP FOR PORT B 

UNI TB, RKCS2(RS) 

#’B,MSG19A 


SEQ 0110 


;EXPECTED MSG AD 


zl 


CZR6GBO RK611 OU PORT LGC TST MACY11 30A(10S52) O3-JAN-78 08:56 PAGE 111 SES O111 


CZR6GB.P11 03-JAN-78 08:46 T17 TEST RELEASE FROM PORT 'B’ WITH PORT ’A’ REQUESTING 
7 4 2737 005314 MOV RV,HCS1 
57 54850 335 899994 MeN Beek cmb ;D0 SELDRV_(STATUS) CMD & GET CONTR RDY 
7 4 104117 ERROR 11? :NO RKY AFTER SEL ORV CMD 
932737 oo0040 o0s342 BIT #0DRA, HMR2 ;SEE IF DRIVE AVAIL ON PORT B 
104071 “we ERROR 71 iBBRt Be B fer AVAIL AFTER PORT A RLS 
004737 043750 ‘ JSR PC, TSTATN 
024574 104123 ERROR 123 ;ATTN CLEARED IN PORT B AFT RLS FROM PORT A 
580s 
2808 005404 Hoy a .DRA!D.DSC!D. PeReRE FE abi BR > .VV>,E.AQ ;EXPECTED MSG AO 
5808 024610 012737 001720 o0s410 MOV #<D. SPOK!D. cart:é bo SSP>,E.H#1 ;EXPECTED Al 
2803 & 012737 0 i 005412 mov #1,e. -Bl Hog 10 F On EXP ECTED'’MSG B1 
cate 005416 MOV #2,£.82 7MSG ID PoR EXPECTED MSG B2 
Te 024636 012737 O00003 oO0s42e2 MOV #3,£.B83 a ID FOR EXPECTED MSG B3 
14% O24644 004737 044274 JSR PC CHKMSG ; CHE 0 BO, Al, Bl 
ele Bedeee 1oie! ERROR git HfisG° 80 ras "Fee TFAED-REEE: case ISSUED 
De4ESE 3 RR : a R 
sole Seer iRiehs Feat 3h fee Bt Bee 
pest De466e i 65 o0l222 900910 SUNT RKCS2(RS) ;SETUP FOR PORT B 
ogee oe 464 000010 ADD uNtTB RKCS2(RS) 
2E54 5 atatabte ye PP 
oie 1 1 D #RLS (RS) ;RELEASE PORT B 
5825 127 1 005314 #SELORV,HCS1 
S8ee 0247 043372 JSR PC, DOCMD ;D0 SELDRV_(STATUS) CMD & GET CONTR RDY 
0247 104117 ERROR 11? :NO RDY AFTER SEL DRV CMD 
5550 Bara 813785 980856 pened " V SUNT RKCS2(RS) ; ;SETUP FOR PORT A 
1 7 5 464 010 ADD Ont Te. RK RKCS2(RS) 
5832 024756 11273? 000101 OSbS60 MOVE ra Roci SA 
2833 Deurze BAG535 809994 ney BSELDRV ;D0 SELDRV_ (STATUS) CMD & GET CONTR RDY 
58 776 104117 ERROR 11? :NO RKY AFTER SEL DRV CMD 
2837 025000 932737 o00040 o0s342 BIT #0, DRA, HMR2 S56 IF DRIVE AVAIL ON PORT A 
383 ge5019 104071 ons ERROR 71 :PORT A NOT AVAIL AFTER PORT B RLS 
eeus s 
Se42 o25012 012765 100000 oop0000 MOV #CCLR, RKCS1(RS) 
5843 025020 013765 OOle2e2 o00010 MOV SUNIT,RKCS2(RS) ;ORIVES 
44 3788 go5464 900010 ADD UNITB RKCSe(RS) ;ADD 1 IF ON PORT B 
584s 7 0 S314 MOV #CLEAR, HCS1 
sey feeme Gouge; ONS 33fon [100M RB RST Ee GERPORGVE S.Ehn GOD™® 
eye pSepe8 484334 043750 ISR Be TSTATN :TEST FOR ATTN 
5849 025054 o00401 BR 69$ 


I09 


CZR6GBO RK611 DU PORT LGC TST MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 112 SEQ O112 
CZR6GB.P11 03-JAN-78 08:46 Ti? TEST RELEASE FROM PORT °B’ WITH PORT 'A’ REQUESTING 
5850 92s056 104154 san ERROR 1S4 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
cS 925060 Bess? 910340 o0s404 Mov aD. .DRA!D.SPIN!D. PRETO na E. a0 ;EXPECTED MSG AD 
585s 0250 12737 001720 oos410 MOV #<D. SPOK!D. CART!6. DOOR HME Be SSP>,E.Al ;EXPECTED Al 
BeSb i 737 900001 o0s41i2 nov #1,E. Bi Hg it FOR 8 ond MSG B1 
2858 1 01 37 o00002 005416 MOV #2,£.B2 :MSG ID FOR EXPECTED MSG Be 
2859 1 12737 oO00003 oDS4e2 MOV #3,£.83 :MSG ID FOR EXPECTED MSG B3 
5861 0251 004737 044274 ISR PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 
pBbe be51 000003 . WORD tT. spert T.B2!0 SPECIFLED HERE 
Sees Oeeize fouoad ERROR 34 ;SG ao ERROR AFTER ORV CLEAR CHD 
5865 025140 104035 ERROR 35 :MSG Al ERROR 
B86 025142 104036 ERROR 36 ?MSG Bl ERROR 
5868 025144 013737 OO0S466 001366 MOV TIMER, COUNT 
5869 025152 004737 047204 JSR PC, TMO ;D0 1.5 SEC TIMEOUT ON PORT A 
59 025156 004737 043750 JSR PC’ TSTATN 
5871 025162 O00401 BR TSt20 ;;GOTO NEXT TST 
2876 025164 104144 ERROR 144 :MULT ATTN ON PORT A 
5874 
5875 s = KREGER KRRRESLEK RARER E RARE RE RARKRAEAERARARRAAARAARARRRRKRAARAHRKE 
2876 jATEST 20 TEST RELEASE FROM REQUESTING PORT ’B’ INHIBITS ‘ATTN’ 
5878 :% A. PORT 'A’ SEIZES THE DRIVE 
2Ba0 iy OB OBORT *B’ & PORT 9A’ RELEASE THE DRIVE, IN THAT ORDER 
298) 5 D0: THE PRO PROGRAM GERIFIES THAT NEITHER PORT ’A’ OR °B’ ATTENTION 
5883 a 
eee 1 ooo004 jj LORtRORSNSEENEREREERURRIERNERERERRIRRARSRRRRNERS RENN AN AN RINNE 
58 ated 012737 000001 001174 MOV #1, STIMES ;;D0 1 ITERATION 
5887 025176 012706 001100 MOV aStAck, SP 
01 788 001222 oo0010 MOV SUNIT Kaees2(RS) ;SETUP FOR PORT B 
5889 10 Ole7 ey 00s MOV #1, UNITB 
58 16 063765 005464 oO00010 ADD UNITB, RKCS2(RS) 
5891 OeS224 112737 O00102 OS6S60 MOVB #’B 19A 
po3e 0252 Obe765 900016 000010 ADD #RLS.RKCS2(RS) ;RELEASE PORT B 
58 1673 0001 31 MOV #SELORV,HCS1 
5894 737 043372 JSR PC, DOCMD ;D0 SELDRV_(STATUS) CMD & GET CONTR RDY 
3835 104117 ERROR 11? :NO RDY AFTER SEL DRV CMD 
5897 4 01376 2 000010 MOV IT,RKCS2(RS) ;SETUP FOR PORT A 
2838 be 18737 rteteata BoSHes MOV sun tts F 
063765 o00S5464 010 ADD UNI TB, RKCS2(RS) 
5900 76 112737 000101 OS6560 MOVB #’A,MSG19A 
5901 Ge5304 016737 900001 005314 MOV #SELDRV.HCS1 
5902 312 737 0433 JSR PC, DOCMD ;D0 SELDRV_ (STATUS) CMD & GET CONTR RDY 
5903 025316 104117 ERROR 117 :NO RKY AFTER SEL DRV CMD 


5905S 025320 032737 oo0040 oO05342 BIT #D0.DRA, HMRe ;SEE IF DRIVE AVAIL ON PORT A 


a 


JOS3 


ceneese — DU PORT LGC TST MACY11 spe 1Gse) O3-JAN-78 08:S6 PAGE 113 SES 0113 


R6GB.P 03-JAN-78 08:46 TEST RELEASE FROM REQUESTING PORT ’'B’ INHIBITS ’ATTN’ 
9 1001 NE 64S :BR_IF YES 
5907 eee ragtera hie ERROR 71 SPORT A NOT AVAIL AFTER PORT B RLS 
5310 025332 012737 910340 o0s404 Mov 8D. DRA!D. DRA!D. SPIN. DROY!D. Vv ,E.A0 ;EXPECTED MSG AO 
e912 Oss3uy 18? 001720 o0S410 MOV #<D. SPOK!D.CART!0. DOOR!D.BRHM!D.SSP>,E£.Al ;EXPECTED Al 
3313 Os83e5 12737 900001 005412 nov #1,€-B1 iS 10 FOR_EXPECTED MSG Bl 
2aie 4 O12 900002 o0s416 MOV #2,£.82 >MSG {0 POR EXPECTED MSG B2 
ay 025372 012737 O00003 x0S42e MOV #3,£.83 :MSG ID FOR EXPECTED 
91 737 o44274 ISR PC, CHKMSG sCHECK MSGS AO, BO, Al, Bl 
a8 haat B80080 .WORD oOfO!O :8 S SPECIFIED HERE’ 
Bast peeuie § ipusis ERROR S12 ol lela cpte deg 
ogee 412 104213 ERROR 213 *MSG Al ERROR 
592 414 Lowes ERROR 214 !MSG Bl ERROR 
5924 416 37 o4SS34 ISR PC, SUBCLR 
235 025422 104024 ERROR 24 ;CERR AFTER SCLR 
532 e4 012737 900001 o0S464 MOV. #1,UNITB ;SETUP PORT B 
$28 4 112737 000102 OS6S60 MOVB #’8.MSG19A 
283 440 004737 044172 JSR PC, RAV ;SEE IF DRIVE AVAIL 
233 pSeuue qo 103 ERXOR 103 ;PORT B AVAIL BEFORE TMO OR RELEASE 
6933 025450 032737 100000 005314 1S: BIT #CERR,HCS1 
bose 0254 001001 2s 
BEES 025 104130 ERROR 130 ;CERR NOT SET BY NO DRA 
5937 462 4737 043750 2s: ISR PC, TSTATN 
5938 hats reeay BR 3$’ 
53 025470 104115 ERROR 115 ;ATTN SET IN PORT B AFTER RLS FROM PORT A 
Sas 47 1 oo0000 3S: MOV #CCLR, RKCS1(RS) 
2g42 peed as 153ee boi eee 000010 MOV SUNTT’ RKGS (RS) ;SETUP FOR PORT B 
5943 025506 012737 OO00001 005464 Vv #1, UNITB 
= ge5514 BOS4ey 9000 ADD UNE TB, RKCS2(RS) 
<2 116737 0001 65 MOVB ¥ 1 
Boe gess 000016 000010 p #RLS.RKCS2(RS) ;RELEASE PORT B 
E94 536 e737 000001 005314 MOV #SELORV,HCS1 
5 544 7 043372 ISR PC. DOCMD ;D0 SELDRV_ (STATUS) CMD & GET CONTR RDY 
B34 550 104117 ERROR 11? :NO RDY AFTER SEL ORV CMD 
5951 o2s5 013765 001222 MOV SUNIT,RKCS2(RS) ;SETUP FOR PORT A 
é 5 Bes tees 005464 eae ADD a 
egeq 258 ea at 1 056560 MOVB #’A,MSG1 
5955 12737 000001 005314 MOV #SELDRV,HCS1 
556 10 004737 043372 JSR PC, DOCMD ;D0 SELDRV_(STATUS) CMD & GET CONTR RDY 
B24 5614 104117 ERROR 11? :NO RKY AFTER SEL DRV CMD 
eee 025616 032737 oo00040 005342 BIT #2 ,DRA, HNR2 i SEE IF DRIVE AVAIL ON PORT A 
5961 025626 104071 ERROR 71 ‘PORT A NOT AVAIL AFTER PORT B RLS 


CZR6GBO0 RK611 DU PORT LGC TST 
CZR6GB.P 


GB.P11 03-JAN-78 08:46 
Sse c B13785 00606 
ATi: 
zore 1 1 
S36 ots ed 737 043372 
ease 104117 
2g5 Bere 13785 Bos00! 
$974 16 o85 S464 
2aoe 78 415736 000001 
2959 Os p1es35 043372 
258 744 104117 
5380 032737 Ooo0040 
e361 Gesren S0i001 
e363 5e8 013737 OOS466 
S386 Bse758 Bouss> Buds5ed 
5988 BSe008 foarte 
} 

5390 026002 
eggs O26002 012737 01034 
S393 026010 
Base Se6014 012737 1720 
936 0260330 03037 005414 
bees ane ptse3e 00000: 
6000 O26050 004737 O44274 
6001 026054 


ae 
ee 
25555 


1 
2 
3 
4 
7 oo0000 
7 
7 
1 
5 


2 
0260 e 000101 
6008 Oe6102 O04 043750 
6009 026106 0004 
6010 026110 1041 
6011 
60le 
6013 
6014 
6015 
6016 
6017 
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PAGE 114 
TEST RELEASE FROM REQUESTING PORT ’B’ INHIBITS ’ATTN’ 


65S: 
Mov SUNTT | RKCS2(RS) ;SETUP FOR PORT A 
UNITB, RKCS2(RS) 
MOVB i ASG1 Sa 
ADD #BLSRKCSE(RS) ;RELEASE PORT A 
JSR PC, DOCMD ;D0 SELDRV_(STATUS) CMD & GET CONTR RDY 
ERROR 11? :NO RDY AFTER SEL ORV CMD 
Mov SUNTT  RKCS2CRS) ;SETUP FOR PORT B 
ADD UNI TB, RKCS2(RS) 
Rv? eect tns 
ISR PC, DOCMD ;D0 SELDRV_(STATUS) CMD & GET CONTR RDY 
ERROR 11? :NO RKY AFTER SEL DRV CMD 
BIT #D. DRA, HMR2 ;SEE_IF DRIVE AVAIL ON PORT B 
BNE 66S :BR IF YES 
aad ERROR 71 :PORT B NOT AVAIL AFTER PORT A RLS 
: MOV TIMER, COUNT 
JSR pc, THO ;D0 1.5 SEC TIMEOUT ON PORT B 
R 4§’ 
ERROR 115 ;ATTN SET ON PORT B AFTER RLS FROM PORT B 
4$: 
Mov 8<D-DRA!O!D. SPIN!D. ORDY!D. Vv>, EAD ;EXPECTED MSG AO 
MOV @{D_SPOK!0. cART!B- 000R!D. BRHA?D.SSP> ,£.A1 ;EXPECTED Al 
MOV #1,£.B1 ;MSG 10 FOR EXPEC ED’MSG B1 
sou a eee TO FOR EXPECTED MSG B2 
MOV $3 E85 nee 18 FOR EXPECTE MSG B3 
ISR PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 
.WORD oOfO!0 ?& MSGS SPECIFIED HER 
ERROR ell !MSG AO ERROR AFTER RELEASE ISSUED 
ERROR 212 :MSH BO ERROR 
ERROR 213 :MSG Al ERROR 
EROCR Sd UNITE iG Bt ERR 
MOVB #’A.MSG19A : 
ane Pc, tetatn GOTO NEXT TST 
ERROR 115 ‘ATTN SET ON PORT A, AFTER RLS FROM PORT A 
$j HEHE MEME HE HE HE HE AE HE HE HE HE HE HH HE HH HE HE HE HE EE RARE REE ERK ES 
j ATEST 21 TEST RELEASE FROM REQUESTING PORT ’A’ INHIBITS ’ATTN’ 
x THE PREVIOUS TEST IS REPEATED FOR PORT 'B’. 


’ 
.% 
erti irri ttt iti iitttii iti ttittii irri tee ee terre rr res 


SEQ 0114 


LOS 


CZR6GBO RK611 DU PORT LGC TST MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 115 SEQ O115 
CZR6GB.P11 03-JAN-78 08:46 T21 TEST RELEASE FROM REQUESTING PORT ’A’ INHIBITS ‘ATTN’ 
1g 112 TST21: SCOPE 
1 114 1 1 001174 MOV #1, STIMES ;;D0 1 ITERATION 
le2 Ol 1100 MOV aSTACK, SP 
B08 1¢6 10 MOV IT whiges2crs> ;SETUP FOR PORT A 
1 127 464 MOV Suni 
602 t35 @ 464 010 ADD oNt TB ReCS2(RS) 
pose Bset eeyt R388 e8 AON a faMeG1 28 e2cRs) ;RELEASE PORT A 
Say pis? basa7e ieee oR safes :D LDRV_¢ TaTUS) CMD 8 GET CONTR RDY 
BREE BSE15E 113 EREor FypPoe iRO 5 Y AFTE L ORV CMD 
1 2 010 Vv SUNIT ,.RKCS2(RS) ane FOR PORT 8 
I 464 v #1 UN TB 
i4 464 0010 ADD unt RKCS2(RS) 
6033 Oeb2e22 112737 000102 oS56560 MOVB B gai 98 
6034 909001 005314 MOV SSECDRY HCS1 
6035 04 JSR PC, DOCMD ;D0 SELORY (STATUS) CMD & GET CONTR RDY 
6036 104117 ERROR 11? :NO RKY AFTER SEL DRV CMD 
737 o00040 o0s342 BIT #D. DRA, HMR2 ;SEE_IF DRIVE AVAIL ON PORT B 
£039 bseses §ai08i Bie CS tBR IF ves 
6040 G262e54 104071 ERROR 71 :PORT B NOT AVAIL AFTER PORT A RLS 
eas 026256 64S: 
bod p26256 7 oos404 MOV #<D.DRA!D. DRA!D. SP DROY:0.vv .VV>,E.AO ;EXPECTED MSG AO 
604S 127 3 005410 Rov EBC Ks 'D.CART! ,jERPECTED nS sEXPECTED Al 
OSESoE piss32 pehaBe 005412 MOV #1,€.B1 siiS@_10 10 Se EEPEUEL SED A fee! 
6047 O26304 OOS gos814 CLR E.Ae ;EXPECTED MS 
p048 Geb310 1 737 oo2 005416 MOV #2, E. Be msc 1D FOR E CTED MSG B2 
1 1 003 o0s42e MOV #3,£.8 iMSG FOR CTED MSG 83 
737 o442e74 JSR PC, CHKMSG HE Al, Bl 
BOs 36350 Be aa8a . WOR ofdio i RScs SreCiPteD fe Re’ 
6 104211 ERROR 211 R AFTER RELEASE ISSUED 
6054 Deb334 1oveie ERROR 212 ime BO 
6055 10421 ERROR e213 :MSG Al ERROR 
6056 Geb340 ouel4 ERROR 214 :MSG Bl ERROR 
605 dps 37 O4SS34 ISR PC, SUBCLR 
6058 026346 104024 ERROR 24 ;CERR AFTER SCLR 
6060 026350 012737 oD0000 ocDs46E4 MOV #0, UNITB ;SETUP PORT A 
6061 026356 112737 000101 OSé6S60 MOVB #’A.MSG19A ‘ 
epes £56399 04737 044172 JSR PC, ORAV ;SEE IF DRIVE AVAIL 
e0Eu 58 104103 ERROR 103 ;PORT A AVAIL BEFORE TMO OR RELEASE 
6066 026374 032737 100000 005314 1S: BIT #CERR,HCS1 
6067 de64ge 001001 BNE 2s 
6 4 104130 ERROR 130 ;CERR NOT SET BY NO DRA 
6070 026406 004737 043750 2s: ISR PC, TSTATN 
6071 Oeb4i2e OOO4D! BR 3$° 
104115 ERROR 115 :ATTN SET IN PORT A AFTER RLS FROM PORT B 
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08:S6 PAGE 116 
TEST RELEASE FROM REQUESTING PORT ’A’ 


MOV 


#CCLR, RKC 


1 
SUNIT HFKCSEURS) ;SETUP FOR PORT A 


#0 ag, untTe 
BN a 
cats RKCS2(RS) 


pecbocno 


SUNIT. KCS2(RS) 
ont, RAS (RS) 


Fe Br Davee HCS1 


mano 

S$ 

1 

SUNIT RKCS2(RS) 
1 UN TB 

uN BAR RK 2 (RS) 

eres. RKGSe(RS) 


aSEL a 


mane RKCS2(RS) 
so unt RuoS2CRS) 


bee HCS1 


won we 
66S 


TIMER, COUNT 
PC, TMO 

PC} TSTATN 
4§ 


115 


8B. .DRA!O!D. won. pROYE 


;RELEASE PORT A 


;D0 SELDRV (STATUS) CMD & GET CONTR RDY 
;NO ROY AFTER SEL DRV CMD 


;SETUP FOR PORT B 


INHIBITS ATTN’ 


;00 SELDRV_ (STATUS) y a GET CONTR RDY 


;NO RKY AFTER SEL DRV 


; SEE Fe DRIVE AVAIL ON PORT B 
BRT \RiOT AVAIL AFTER PORT A RLS 


;SETUP FOR PORT B 


;RELEASE PORT B 


SEL DRV CMD 


a BELORY TATUS) CMD & GET CONTR RDY 
ATE 


;SETUP FOR PORT A 


;D0 SELDRV (STATUS) CMD & 
:NO RKY AFTER SEL DRV CMD 


GET CONTR RDY 


tae r Py DRIVE AVAIL ON PORT A 
:PORT A NOT AVAIL AFTER PORT B RLS 


;D0 1.5 SEC TIMEOUT ON PORT A 


;ATTN SET ON PORT A AFTER RLS FROM PORT A 


ac0, SPOK!D. CART!O. DOOR! D.BRHM! 
#1,E.B1 MSG I 


E.Ae 


0 FOR EX ECTED’ MSG B1 
;EXPECTED MSG Ae 


“Mens EaR0 


;EXPECTED MSG AD 


;EXPECTED Al 


SEQ 0116 


NOS 





CZR6GBO RK611 DU PORT LGC TST MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 117 SEQ 0117 
CZR6GB.P11 03-JAN-78 08:46 Tel TEST RELEASE FROM REQUESTING PORT 'A’ INHIBITS ‘ATTN’ 
6130 1 005416 MOV #2,€.82 ;MSG FOR CTED MSG 
bi3i nsgaes §15535 eee 005422 MOV 93° E85 :MSG 1p FOR EXPECTED MSG 
6133 JSR PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 
1 . WO ord: 8 nsGs SPECIFIED HERE 
6135 ERROR e2il ;MSG OR AFTER RELEASE ISSUED 
6136 ERROR 212 :MSH BO ERROR 
61 ERROR 213 :MSG Al ERROR 
6138 ERROR 214 MSG BI ERROR 
61 o0s464 MOV #1, UNITB SE PORT B 
6140 o0S6S60 MOVB #’8.MSG19A 
614 ISR Pc, TSTATN 
614 pe TSt22 ;;GOTO NEXT TST 
piss ERROR 115 ‘ATTN SET ON PORT B, AFTER RLS FROM PORT B 
SLYHS as KREKKEKKRERRSREREEEEELRE RL RERARARERARARARE KERR AARRAARARRERAHKRAKE 
b14é AT T 22 TEST RELEASE BY PORT 'B’ WHEN SEIZED BY PORT ’A’ 
6148 $i VERIFY THAT A RELEASE ISSUED BY ONE PORT IS NOT RECOGNIZED IF 
6149 # THE DRIVE IS SEIZED BY THE OTHER PORT 
b151 i A. SEIZE THE ORIVE THRU PORT ’A’. 
pies $% B. ISSUE A RELEASE THRU PORT ’B’ & VERIFY DRIVE STILL SEIZED 
bis4 i BY PORT ’A’. 
ats es REGGE GLEE REG RARRRRR RRR R ERR R RARER RRR E REAR RARER AKESR 
61 927036 $T22: SCOPE 
6158 7040 pooo? 000001 001174 MOV #1, STIMES ;;D0 1 ITERATION 
6159 027046 012706 001100 MOV aStack 
6160 de705e 012737 0000 o0S464 MOV #0, UNI TB ;SETUP PORT A 
6161 027 112737 0101 OS6S60 MOVB #’A,MSG19A 
b16e 027066 013737 S466 001366 MOV TIMER, COUNT 
6163 027074 004737 7204 JSR PC, TMO ;D0 TIMEOUT 
6165 7100 737 045534 ISR PC, SUBCLR 
b1 be 953180 oeuoe4 ERROR 24’ ;CERR AFTER SCLR 
6168 
6169 027106 044172 JSR PC, DRAV ;SEE_IF DRIVE AVAIL 
6170 Ge7i1¢ LO4O4S ERROR 4 ‘PORT A_NOT AVAIL AFTER TMO 
6171 0627114 013765 ool2e22 op0010 MOV SUNIT,RKCS2(RS) ;SETUP FOR PORT 8 
6172 Ge? 1ee 012737 OO000i o05464 MOV #1,UNItTB 
6173 0271 063765 005464 900019 ADD UNTTB,RKCS2(RS) 
6174 027136 112737 000102 OS6S560 MOVB #’6 159A 
6175 027144 765 000010 000010 ADD #RLS,RKCS2(RS) ;RELEASE PORT B 
6176 Ge? 152 2737 990001 005314 MOV #SELORV,HCS1 
6177 be? 4737 3372 JSR PC, DOCMD ;D0 SELDRV_(STATUS) CMD & GET CONTR RDY 
6178 7164 104117 ERROR 11? ?NO ROY AFTER SEL DRV CMD 
6180 027166 013765 OO01222 oD00010 MOV SUNIT,RKCS2(RS) ;SETUP FOR PORT A 
6181 ge? 174 613599 000000 005464 MOV #0, UNITB ; 
6182 7202 063765 005464 O00010 ADD UNI TB, RKCS2(RS) 
6183 027210 112737 000101 OS6560 MOVB #°A,MSG19A 
6184 027216 612737 O00001 005314 MOV #SELDRV,HCS1 
6185 027224 004737 043372 JSR Pc, DOCMD ;D0 SELDRV (STATUS) CMD & GET CONTR RDY 


B10 


CZR6GBO RK611 DU PORT LGC TST MACY11 30A(10S2) O03-JAN-78 08:56 PAGE 118 SEQ 0118 
CZR6GB.P11 03-JAN-78 08:46 T22 TEST RELEASE BY PORT 'B’ WHEN SEIZED BY PORT ‘A’ 

6186 027230 194117 ERROR 117 ;NO RKY AFTER SEL DRV CMD 

6188 027232 932737 oo00040 005342 BIT #D. DRA, HNR2 jSEE IF DRIVE AVAIL ON PORT A 

e131 zee 104071 —_ ERROR si :PORT A NOT AVAIL AFTER PORT B RLS 

61 - 

6133 027244 12737 010340 oo0s4o4 Mov 8<D.DRA!D. ORA!D. SPIN! 0. DROY. V¥>, E.A0 ;EXPECTED MSG AO 

cise fees 15535 091728 poets ov 8D SPOK!D. CART!O, DOO 1D. BH: D. BEE? »F.O1,,, sEMPECTED A 

6197 7 2e 7 OOS5414 CLR E.Ae- j EXPECTED MSG 

61 7 12737 o00002 005416 MOV #2, £.B2 :MSG 1 OR E CTED MSG B2 

yt 7 012737 000003 O0542e MOV #3,£.83 ;MSG FOR CTED MSG 

6201 g27312 004737 044274 JSR. PC ,CHKMSG ; CHECK MSGS A0, 80, Al, Bl 

esas 7 104211 ERRGR 211° fe E AFTER RELEASE ISSUED 

6204 73ee 104ele ERROR 212 ?MSH BO ERROR 

6205 7324 104213 ERROR 613 ?MSG Al ERR 

be06 027326 104214 ERROR 14 :MSG B1 ERROR 

6208 gs RERKEAKEREL EGER REE EEE RAS KEAKRSRRSRRARRAERAE RAR RAL AKAARRKRKEE 

6203 j ATEST 23 TEST RELEASE BY PORT 'A’ WHEN SEIZED BY PORT ’B’ 

an i THE PREVIOUS TEST IS REPEATED FOR PORT ’B’. 

a ; ag geen prams, <n seceiganaiens een Mat RRR i Soe as: 
iS 057 33¢ weaetd 1 001174 * MOV #1, STIMES ;;D0 1 ITERATION 
16 5336 piss a? abet MOV setace SP 

bel7 ge7au4 018737 1 oos464 MOV #1, UNItB ;SETUP PORT 8 

£519 087360 O1S737 DOSHEE OBISEe ve shea, 

bee os3 Baao3s 047204 JSR , TMO ;D0 TIMEOUT 

p553 7372 004737 O4S5S34 JSR PC, SUBCLR 

bees 7376 104024 ERROR 24 ;CERR AFTER SCLR 

6225 

pee Grigg Qeirae OwI72 $Bfon GG: BEET RO VEvRtE hereR tno 

6228 1 12 0010 MOV SUNTT RKCS2(RS) ;SETUP FOR PORT A 

6229 4 O1 464 MOV tts 

6230 Pee 464 0010 ADD UNITB, RKCS2(RS) 

6231 74 1127 000101 560 MOVE #’A,MSG19A 

6e 027436 062765 000010 000010 #RLS.RKCS2(RS) ;RELEASE PORT A 

62 7444 27. 999001 005314 MOV #SELORV,HCS1 

be 7 JSR PC, DOcMO ;D0 SELDRV_(STATUS) CMD & GET CONTR RDY 

bs 104117 ERROR 11? :NO RDY AFTER SEL ORV CMD 

box? 1 2 10 MOV SUNIT,RKCS2(RS) ;SETUP FOR PORT B 

62 1 1 464 MOV #1, UNtTB 

6239 74 S 005464 000010 ADD UNTTB,RKCS2(RS) 

6240 O27502 112737 000102 OSES60 MOVB #’B,MSG19 

6241 027510 012737 000001 0605314 MOV #SECDRV,HCS1 


c 


B7e28 fONii7 


8 


meee 
£nvo 
bee eee 
Pee 
ruroru 
Bees 
wre 


TALIM 
: 
a 


CZR&GBO RK611 OU PORT LGC TST 
ZR6GB.P11 03-JAN-78 08:46 


043372 


000040 
010340 
00S406 
7 
414 
000003 
044274 


MACY11 30A(10S2) 
Te3 


o00S34e 


005404 


Bbesis 


005416 
00S4ee 


64S: 


O03-JAN-78 08:56 


TEST 


PAGE 119 
RELEASE BY PORT ’A’ WHEN SEIZED BY PORT ’B’ 


PC, DOCMD 
11? 


71 


3 samesns 
wee 


frururmMVo 
be pee 


< 


ODO 


7 a tata 


300 SELDRV_ (ST 
;NO RKY AFTE 


BR IY wee 


ATUS) CMD & GET CONTR RDY 
SEL DRV CMD 


AVAIL ON PORT 8 


PORT B NOT AVAIL AFTER PORT A RLS 


.DRA!D.DRA!D. SPIN!D snore - 


(D. SPOK!D. .CART! se sae pr: Be ssp» ¢ E.Al = ;EXPECTED Al 


FSG 10 FOR 


VV>,E.AO ;EXPECTED MSG AD 


XPECTED MSG Be 


ine ID FOR EXPECTED MSG B3 
s CHECK MSGS AO 50, Al, Bl 


ise a8 ERROR 


ep. He RE Lense ISSUED 


SEQ 0119 





| 


CZR6GBO RK611 DU PORT LGC TST MACY11 30A(10S52) O3-JAN-78 O08:S6 PAGE 1 SEQ 0120 


CZR6GB.P11 03-JAN-78 08:46 Te4 TEST COMMAND FOLLOWED BY THMEDIATE RELEASE: PORT A 
6265 5-36 3-36-36 06 SE 0 JE J a a A 0 9 9 0 0 a a a a a a a a a a HE 
6 T 24 TEST COMMAND FOLLOWED BY IMMEDIATE RELEASE: PORT A 


6267 
SSUE A K TO CYL_ 10 FROM PORT ’A’ & AN 
TRREDIATE RELEASE VO PORT A? 

B. VERIFY THE DRIVE IS AVAILABLE TO PORT ’B’ & PORT B SEES ATTN 

C. VERIFY PORT A DOES NOT RAISE ATTN WHEN SEEK COMPLETED. 


We ee We Oe ice 
4 


ROPORO EO FORUFO FOROAOFO AO 
Re e 


3% 
2 agg pe mammals eaeaeeaiaaamanepseac Ca ape agin ete 


027622 o00004 téT24 
62 027624 012737 capt 001174 MOV uh ;;D0 1 ITERATION 
ba78 be7ea Bt Bats 000010 eM HKeS2CRSD ;SETUP FOR PORT B 
6281 44 012737 000001 O0S464 MOV 
4 000010 ADD ON ve ReKCS2(RS) 
ines tn are ae 
66 3? 5 1 016 ADD #RL KCSe(RS) ;RELEASE PORT B 
bSee 057902 bos? 899993 ney BSEL ORY .HCS 300 SELORV_ (STATUS) CMD & GET CONTR RDY 
628 104117 ERROR 11? :NO ROY AFTER SEL DRV CMD 
Sea 7710 1 ? 019 mov TT BKCS2(RS) ;SETUP FOR PORT A 
464 0010 ADD unt B.RKCS2(RS) 
77 il 101 6560 8’°A, MSG 
PSeq tet OaSa72 sata mee sseCpRy .HCS1 -DO SELORV (STATUS) CMD & GET CONTR RDY 
6295 OS>oe8 rites ERROR 11? :NO RKY AFTER SEL ORV CMD 
beg? ge77e4 e737 oo00040 o00S342 BIT #0,DRA, HNRe i SEE EF PE DRIVE AVAIL ON PORT A 
6299 027764 104071 a ERROR 71 + PORT A ROT AVAIL AFTER PORT B RLS 
7 04SS34 : JSR PC, SUBCLR 
a 0577 Oedos4 ERROR 24’ ;CERR AFTER SCLR 
£353 O3 027774 Ol 900012 oo0020 MOV #10. ,RKDC(RS) 
6 27 90001 005314 MOV Pe! Doth HCS1 
6 16 7 2 JSR ;D0 SEE K CHD 8 GE ay CONTR READY 
6308 6 13766 900019 GY shor RKCS2(RS) ;SETUP FOR TERR rr 
127 464 V untTe 
6310 030032 063765 005464 000010 ITB, RKCS2(RS) 
p31 7 Be vB 8’ ALM 438 
1 1 D #RLS (RS) ;RELEASE PORT A 
631 1 i 314 MOV #SELORV,HCS1 
6314 030062 737 043372 JSR PC, DOCMD ;D0 SELDRV_(STATUS) CMD & GET CONTR RDY 
at 104117 ERROR 11? ?NO RDY AFTER SEL DRV CMD 
631 013765 001222 o0001 MOV SUNIT,RKCS2(RS) ;SETUP FOR PORT B 
6318 030076 012737 005464 MOV #1,UNITB 
6319 030104 3765 005464 O00010 ADD UNI TB, RKCS2(RS) 
6320 O30ll2 112737 O00102 OSE&SE0 MOVB #'B,MSG19A 


CZR6GBO RK611 OU PORT LGC TST 
CZR6GB.P11 


AazegoIeae SUB URHOER COUSCOUS 


| oe eee (e 


eee 


6371 


030186 


WIE BLSSES? 


Bee BERBERS 8 


aa 


03-JAN-78 08:46 
012737 
oS 
104117 


81001 


104071 


104117 
1 22 
riz73? 101 
bier, SUDA 
104117 
737 oooo40 
851091 
104071 
7 043750 
800431 
104160 
012737 010340 
005037 005406 


b43372 


MACY11 30A(10S2) 
Te4 


005314 


o00S34e 


005352 


oos404 


005410 
o00S41e 


005416 
o0S4ee 


: 


Shee 
rey, 
£000r0 


Bagg 


Bro 


—o~—-o 
£oo0rso 


ae 


Oo 
ry 
W 
£ 
a) 


o00S404 


65S: 


66S: 


1$: 


E10 


03-JAN-78 08:S6 PAGE 121 SEQ 0121 
TEST COMMAND FOLLOWED BY LAMEDIATE RELEASE: PORT A 
MOV HSELDRV HCS1 
ISR PC. DOCMD 300 SELDRV_ (STATUS) cnD 8 & GET CONTR RDY 
ERROR 11 a :NO RKY AFTER SEL DRV C 
BIT ee ; SEE IF OR DRIVE AVAIL ON PORT B 
BNE g *BR I 
ERROR :PORT B fer AVAIL AFTER PORT A RLS 
MOV T0000 TEMP 1 
JSR PC, FaTt2 
ERROR 152 ;NO ATTN ON PORT B AFTER SEEK & RLS FROM PORT A 
MOV #<D.DRA!D.DSC!D.SPIN!D.DRDY!D.VV>,E.AO ;EXPECTED MSG AD 
CLR E.B0 jEXPECTED MSG 
MOV #<D. SPOK!D.CART!D. DOOR!D.BRHM!D.SSP>,E.Al ;EXPECTED Al 
MOV #1,£.B81 3MSG 10 FOR XPECTED’ MSG B1 
CLR E.Ae * EXPEC D MS 
MOV #2,€.B2 ?MSG ID FOR EXPECTED MSG Be 
MOV #3,£.83 ?MSG ID FOR EXPECTED MSG B3 
ISR PC, CHKMSG ; CHECK S 00,8 BO, al, 
.WORD OfF0!0 :8 Pron fe He 
ERROR 145 ASG TER SEEK & RLS FROM PORT A 
ERROR 146 
ERROR 147 :MSG Al ERROR 
MOV ganrt RKCS2(RS) nee gt F R PORT B 
MOV #1, UNITB 
ADD uNtTE RKCS2(RS) 
MOVB #’B, MSG19A 
ADD WLS RKCS2(RS) ;RELEASE PORT B 
MOV a LORY HCS1 
JSR PC mb 300 SELDRV_(STATUS) CMD & GET CONTR RDY 
ERROR 11? ?NO RDY AFTER SEL DRV CMD 
MOV SUNIT,RKCS2(RS) ;SETUP FOR PORT A 
MOV #0, UNI TB 
ADD UNI TB, RKCS2(RS) 
MOVB #’A,MSG19A 
MOV HSeCDRV HCS1 
JSR PC, DOCMD 300 SELDRV (STATUS) CMD & GET CONTR RDY 
ERROR 11? :NO RKY AFTER SEL DRV CMD 
BIT #D. DRA, HMR2 ;SEE_IF DRIVE AVAIL ON PORT A 
BNE 66 *BR IF Y 
ERROR 71 :PORT A NOT AVAIL AFTER PORT B RLS 
JSR PC, TSTATN 
ERROR 160 ;ATTN ON PORT A AFTER SEEK & RLS FROM PORT A 
MOV #<D.DRA!D. SPIN!D. DRDY!D. Vv> a ;EXPECTED MSG AO 
CLR E.B0 ; EXPECTED mga” 


i i 


10 


CZR6GBO RKG11 DU PORT LGC TST MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 122 SEQ 0122 
CZR6GB.P11 03-JAN-78 08:46 T24 TEST COMMAND FOLLOWED BY IMMEDIATE RELEASE: PORT A 
77 1 7 410 MOV #<D.SPOK!D.CART!D. EXPECTED Al 
£355 Babee Bt 33 BBbOnt ppeute MOV #1 1,6. Bi Hee. 10 FOR EXPECTED ED’ fee p 
2330 O30 1 one 00541 Sov .B XPECTED MSG B 
e381 B1s5 eeatee 00542 MOV a, e | BS nae 1B FOR FOR f EXPECTED MSG - 
6383 737 o44274 ISR PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 
.WORD OF0!0 :& MSGS CIFIED HERE 
104145 RROR One :MSG a0 RROR AFTER SEEK & RLS FROM PORT A 
4 104146 RROR 14 ?MSH RROR 
638 104147 ERROR 14 :MSG Al ERROR 
6388 030470 104150 ERROR 150 :MSG B1 ERROR 
6390 ee ee EET FOLLOWED BY IMMEDIATE RELEASE: PORT 
6331 j ATE TEST COMMAND FOLLOWED BY IMMEDIATE RELEASE: PORT B 
£335 8 PREVIOUS TEST IS REPEATED FOR PORT ’8’, 
b334 Us THE SEEK IS TO CYLINDER O 
6396 ee ne ane 
6397 030472 iit T2S: SCOPE 
6338 74 O1 001174 MOV w) TIMES ;;D0 1 ITERATION 
ll MOV aStack 
6400 1222 000010 MOV SUNIT,RKCS2(RS) ;SETUP FOR PORT A 
6401 4 005464 MOV 
64 464 10 ADD UNI TB, RKCS2(RS) 
64 1 056560 MOVB #’A,MSG1 
64 000010 ADD #RLS.RKCS2(RS) ;RELEASE PORT A 
64 a4 005314 MOV #SELORV,HCS1 
6 Se 3372 JSR PC, DOCMD ;D0 SELDRV_ (STATUS) CMD & GET CONTR RDY 
B40? ERROR 11? :NO RDY AFTER SEL DRV CMO 
6409 2 10 MOV SUNIT,RKCS2(RS) ;SETUP FOR PORT B 
6410 30sec 00661 rege MOV #1, UNtTB 
6411 464 000010 ADD UNITB, RKCS2(RS) 
bie 930608 1 OS6560 #’8,M5G19A 
641 1 1 005314 #SECLDRV,HCS1 
6414 030616 3372 JSR PC, DOCMD ;00 SELDRV_(STATUS) CMD & GET CONTR RDY 
puis ERROR. 11? ?NO RKY AFTER SEL ORV CMD 
6417 030624 oo004%0 o00S342 BIT #0. DRA, HMR2 ;SEE IF DRIVE AVAIL ON PORT B 
6418 030632 BNE 4s :BR IF 
pals ae ERROR 71 :PORT B VROT AVAIL AFTER PORT A RLS 
64e1 04SS34 ISR PC, SUBCLR 
buge 42 ERROR 24 ;CERR AFTER SCLR 
64 44 n00020 MOV #0 RKDC (RS) 
Buse Bee 17 005314 MOV #SEEK 
6426 B30eE5 043372 ISR PC e BOtND ;D0 SEEK CMD 8 GET CONTR READY 
6427 030664 ERROR ai *NO_RDY AFTER SEEK CMD 
BH OS 001222 000010 MOV UNIT, RKCS2(RS) ;SETUP FOR PORT B 
64 030674 1 005464 MOV #1, UNITS 
6430 030702 005464 000010 ADD UNITE RKCS2(RS) 
6431 030710 000102 056560 MOVB MSG1 
64 030716 000010 o00010 ADD sree. RKCS2(RS) ;RELEASE PORT B 





i 


G10 


CZR6GBO RKG11 DU PORT LGC TST MACY11 30A(10S2) 03-JAN-78 08:56 PAGE 123 SEQ 0123 
CZR6GB.P11 03-JAN-78 08:46 Tes TEST COMMAND FOLLOWED BY IMMEDIATE RELEASE: PORT B 
6433 930724 012737 000001 005314 MOV #SELORV,HCS1 
6434 7 004737 043372 JSR PC, DOCMD 300 SELDRV_ (STATUS) CMD & GET CONTR RDY 
pag 104117 ERROR 1D :NO ROY AFTER SEL DRV CMD 
bus? 030740 olers7 001222 990010 Mov SUNIT RKCS2(RS) ;SETUP FOR PORT A 
4 464 1 Dp UNI TB, RKCS2(RS) 
aS ie fae Hei fe fo Uae 
6441 127 1 005314 MOV SELDRV,HCS1 
pave 030 004732 043372 JSR PC, DOCMO ;DO SELDRV_(STATUS) CMD & GET CONTR RDY 
eud3 1 104117 ERROR 11? :NO RKY AFTER SEL ORV CMD 
644S 1004 032737 oD0040 o0s5342 BIT #D. DRA, HMR2 ;SEE_IF DRIVE AVAIL ON PORT A 
Bue 1012 1001 BNE 65$ :BR IF YES 
pu? 1018 104071 aa ERROR 71 :PORT A NOT AVAIL AFTER PORT B RLS 
644 1016 013737 1412 005352 ‘ MOV TSOO00, TEMP1 
64 031028 boi? 7 oa te JSR PC sees 
publ 1 1041 ERROR 152 ;NO ATTN ON PORT A AFTER SEEK & RLS FROM PORT B 
6453 
pued 931038 7 ps0340 005404 Mov s .DRA!D. “0510 -SERSER PO nse £2 YY VV>,E.AO ;EXPECTED MSG AO 
6456 031044 012737 001720 005410 MOV #<D. SPOK!D. cart: 5 Door Bo ssp> ,£.Al_ ;EXPECTED Al 
Buea O3ibes “1, oeundnces ee | eta 8 Bbeleb Retreat nee 61 
6459 1064 012737 005416 MOV #2,£.B2 : CTED MSG B2 
BuO 831082 a 4 005422 MOV #3;£.83 imac 1B FOR OR EXPECTED MSG B3 
pube 931100 004737 o44274 JSR PC CHKMSG Paes MSGS Ag Ete Al, Bl 
ees 631168 ERROR 4g! ; fs a0 ERROR FER PERE, & RLS FROM PORT B 
6465 031110 ERROR 146 :MSH BO ERR 
By 31115 1Bd124 ERROR fea ime Bt Farr 
pu68 1116 He 001222 990019 mov SUNzT RKCS2(RS) :SETUP FOR PORT A 
6470 O3i1is2 765 Beeaes 00010 ADD uNt B, RKCS2(RS) 
6471 0311 112737 000101 oOS6560 MOVB G19A 
647, 1146 0010 900019 ADD pat Reese RS) ;RELEASE PORT A 
647 1154 3 314 MOV HCS1 
6474 1162 7 JSR Se ORM, ;D0 SELDRV (STATUS) CMD & GET CONTR RDY 
B75 O31166 104117 ERROR te) :NO ROY AFTER SEL DRV CMD 
pie? 031170 813789 2 910 Mov SUNTT RKCS2(RS) ; ;SETUP FOR PORT B 
6479 031204 3765 005464 000010 ADD UNtTB RKCS2(RS) 
6480 O3lel2 1127 000102 056560 MOVB S 
64 0318 5732 900001 005314 MOV ESELDRV HCS1 
64 1 7 433 JSR Docmd ;D0 SELDRV (STATUS) CMD & GET CONTR RDY 
buB3 031232 104117 ERROR tC ee :NO RKY AFTER SEL DRV CMD 
64 031234 032737 oD00040 onDs34e BIT #D.DRA, HMR2 ;SEE IF DRIVE AVAIL ON PORT B 
6486 O31e42 001001 BNE 66S :BR IF YES 
6487 O31244 104071 ERROR 71 :PORT B NOT AVAIL AFTER PORT A RLS 
6488 O31e4%6 66S: 


CZR6GBO RK611 DU PORT LGC TST 


CZR6GB.P11 


COSCO 
UWUIUIUUU UU 
bb pe pe pe 

0 00 Urn rww-obe 


B3i8ce Bbovi 
104160 


BOOwGG BOGBGO0 & & 


ENTREES 


BOBORR0 BBOOOORDODBEmDE 


he 


BxEEKER Seis 


104117 


03-JAN-78 08:46 


043750 


Ba9372 


MACY11 30A(10S2) 
Tes 


oos404 


c0S410 
005412 


005416 
oos4ee 


001174 


1 Qeese0 


005314 


JSR 
BR 
ERROR 


1$: 


5 HNC RC HE em 


H10 


O3-JAN-78 08:56 PAGE 124 
TEST COMMAND FOLLOWED BY IMMEDIATE RELEASE: PORT B 


PC, TSTATN 
1$ 
160 


a mae - SPIN!D. - Deer 20 
5B. SPOK!D.CART!0 i boon 
-Bl ;MSG 


PC, CHKMSG 
obo 


;ATTN ON PORT B AFTER SEEK & RLS FROM PORT B 


ice 


ID FOR 


iRee fo Pon exbe 


;MSG ID FOR 
CHECK MSGS 


TED MSG BvmsG” 80 


; EXPECTED 


SSP>,E.Al 
EXPECTED’ MSG Bl 


CTED MSG Be 
EXPECTED MSG 83 


AO, 80, Al, Bl 


38 nSGs SPECIFIED HERE’ 


AO ERROR AFTER SEEK & RLS FROM PORT B 
1 ERROR 
1 ERROR 


iMSG B 


TEST TIMEOUT RETRIGGER THRU PORT ’A’ 


MSG AD 


;EXPECTED Al 


5 sSonanananeaauagenesnsesnereeiaanh hasnt eee 
VERIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED. 


B. THE PROGRAM WAITS SOOMS & RE-SEIZES THE DRIVE THRU PORT °A’ 


C. PORT ’B’ ATTEMPTS TO SEIZE THE DRIVE 8 THE PROGRAM 
VERIFIES THAT FULL TIMEOUT TOOK PLACE FROM STEP B ABOVE. 


ee eee 
;;DO 1 ITERATION 


+726 


;CERR AFTER 


SCLR 


;SETUP FOR PORT B 


;RELEASE PORT B 


O SELORV (STATUS) CMD a GET CONTR ROY 


A. PORT ’A’ SEIZES THE DRIVE 
MOV #1 STINES 

MOV astack.s 

JSR Pe. SUBCER 
ERROR 24 

MOV SUNIT,RKCS2(RS) 
MOV #1, UNIT 

ADD UNI TB. RKCS2(RS) 
MOVB #’B,MSG19A 

ADD #RLS, RKCS2(RS) 
MOV SSELORV, HC 

JSR PC DOCMD 

ERROR 11? 

MOV SUNIT, RKCS2(RS) 
MOV #0, UNITS 

ADD UNI TB, RKCS2(RS) 
MOVB "A MSG19) 

MOV #SELDRV,HCS1 
ISR Cc, DOCMD 

ERROR i? 


;D0 
;NO ROY AFTER SEL DRV CM 
;SETUP FOR PORT A 


;D0 SELDRV_(STATUS) CMD & GET CONTR RDY 
:NO RKY AFTER SEL DRY CMD 


SEQ 0124 


CZR6GBO RK611 DU PORT LGC TST 
CZR6GB.P11 46 


O03-JAN-78 O8: 
6S4S 
6S46 031502 032737 O00040 
6547 1$10 001001 
654 1Sie 104071 
eae 1514 
6550 1514 004737 O4SS34 
4 eh 1 104024 
6$53 1 27. 
Sede eae 
6SSS 1$34 004737 044172 
Ht 1S40 10404S 
6558 15 012737 010340 
6559 031850 05037 00S4 
geet Gilees lever Gelcap 
Geel GIES here Huot 
6563 1$74 O12e737 900002 
P 24 1602 012737 000003 
24] 1610 004737 044274 
6S6 1614 
6568 1616 1041 
6569 1 104166 
6570 l6ee 104167 
Smee eer 
per 16 Bad? 7114 
6574 1640 012737 000001 
6575 1633 004737 044172 
6S 16 
bere O3ieee if273 000102 
6579 Bai bet +3 001222 
6580 16 704 O0SY64 
6581 aise 737 O44214 
eos 1700 104110 
6584 031702 004737 047162 
6585S 031706 005137 001366 
6586 031712 Qe37e7 001366 
6587 031720 002001 
6588 031722 104153 
6589 
6590 
6591 
6592 
6593 
6594 
6595 
6596 03 00 


135¢ BI 2737 ooo0001 
6598 031734 O12e706 901100 
itn 004737 O4SS34 


T10 
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o00S34e 


001366 


oos404 


005410 
00S412 


005416 
o00S42e2 


001366 
OOS464 


os6S60 


000043 


001174 


TEST TIMEOUT RETRIGGER THRU PORT ’A’ 


BIT #D. DRA, HMR2 ;SEE IF DRIVE AVAIL ON PORT A 
BNE 64S : YES 
_ ERROR 71 :PORT A NOT AVAIL AFTER PORT B RLS 
ISR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
MOV #30. , COUNT 
JSR PC, THO ;D0 SOOMS TIMEOU 
JSR PC’ DRAV j RE-SE I Ze DRIVE THRU PORT 
ERROR 45’ :PORT A NOT AVAIL AFTER TIMEGUT 
MOV #<D.DRA!'O!D. SPIN!D. DROY? ,£.A0 ;EXPECTED MSG AO 
CLR E.B0 “MSG 
MOV #<D. SPOK!D.CART!D. SOBRE. BRHM!D.SSP>,£.Al ;EXPECTED Al 
MOV #1,£.B1 ; ID FOR EXPECTED'’MSG B1 
Shu ad 82 ioeeet Ponoe pe TED MSG B2 
MOV #3/E.83 :MSG 18 FOR EXPECTED MSG B3 
JSiao GFyTES? §—HEMRSKSMEGE. SPs PP peRe” 
ERR 165 :MSG 83 ERROR AFTER TIMEOUT 
ERR 166 :MSH BO ERROR 
ERROR 167 ?MSG Al ERROR 
ERR 170 ?MSG Bl ERROR 
MOV #-1, COUNT 
JSR Pc, CLKON ; TURN ON CLOCK 
MO #1,UNITB :SETUP Pi 
JSR PC, DRAV :SEE IF ORV AVAIL 
BR 1 ?BR IF NO 
ERROR 1 ?PORT A AVAIL BEFORE TMO OR RLS 
1S: MOVB #’B,MSG19A 
MOV SUNTT, Ri 
AD UNITB;RY 
JSR PC, FAtT3 
ERROR 110 ;NO ATTN ON PORT B TO ALLOW SEIZE 
ISR PC, CLKOF ;TURN CLOCK OFF 
COM COUNT *GET ACTUAL COUNT OF TIMEOUT 
CMP COUNT, #35. ; COMPARE COUNT AGAINST APPROX 1 SEC 
BGE TST27’ : TO NE T Test 
ERROR 153 t+ fmeouT BID RE-TRIGGER 
g jRERERSSMHRERHHERETETINEOUT RETRIGGER THRU PORT BS’ 
; ATE TEST TIMEOUT RETRIGGER THRU PORT ’B’ 
. THE PREVIOUS TEST IS REPEATED FOR PORT ’'B’. 
= KEEKRREEEGRE ERE R RRR ARR KARR ERRRR REE RRARARRRARKARAAAKREER 
+8127: SCOP 
MO rs STINES ;;D0 1 ITERATION 
MOV aStack 
JSR 2 egeecR 
ERROR at ;CERR AFTER SCLR 


SEQ O1eS 
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AN-78 08:46 


| €2R6GB.P11 
6601 
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aaaaaads 


ERE 


Rowe hoos 


SEPSERSESESE 


WO NOU WMO 


23 
BE RRR 
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MACY11 30A(10S2) 
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001366 


oo0S404 


005410 
00S41e 


ooS416 
oos4ee 


001366 
00S464 


oS6S60 


64S: 


18: 


J10 


O3-JAN-78 08:56 PAGE 126 
TEST TIMEOUT RETRIGGER THRU PORT ’B’ 


MOV SUNIT,RKCS2(RS) ;SETUP FOR PORT A 
MOV #0 UN TB 

ADD UNI TB, RKCS2(RS) 

MOVB #’A,MSG19A 


ADD eRe RKCS2(RS) ;RELEASE PORT A 

MOV #SELORV, HCS1 

ISR PC, COCMD 300 SELDRV_(STATUS) CMD & GET CONTR RDY 
ERROR 11? :NO RDY AFTER SEL DRV CMD 

MOV SUNIT RKCS2(RS) ;SETUP FOR PORT B 

MOV UNtTB 

ADD Unt TB RKCS2(RS) 

MOVB #’B,M5G19A 

MOV SSELDRV HCS1 

JSR PC, DOCMD ;D0 SELDRV_(STATUS) CMD & GET CONTR RDY 
ERROR {3° :NO RKY AFTER SEL DRV CMD 

BIT #0. DRA, HMR2 ;SEE_IF DRIVE AVAIL ON PORT B 

BNE 64S ‘BR IF YES 

ERROR 71 :PORT 8 NOT AVAIL AFTER PORT A RLS 
JSR PC, SUBCLR 

ERROR 24 ;CERR AFTER SCLR 

MOV #30. , COUNT 

ISR PC, THO ;D0 SOOMS TIMEOUT 

ISR PC’ DRAV Re SEIZE DRIVE THRU PORT B 

ERROR 45 T B NOT AVAIL AFTER TIMEOUT 
MOV #<D.DRA!O!D. SPIN!D. 'D.VV>,E.AO ;EXPECTED MSG AO 
CLR .BO EXPECTED. nse’ BO 

MOV #<D. SPOK!D. cart: 6. BQ0R?D.8 RHM!D.SSP>,E.Al ;EXPECTED Al 
MOV #1,£.B1 10 FOR REXPECTED MSG B1 

CLR E.Ae i PEC ED MSG 

MOV #2,€.B2 :MSG 1D Fo FOR EXPECTED MSG Be 

MOV #3,£.83 :MSG FOR EXPECTED MSG 83 

ISR PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 

. WOR ofo'o *& MSGS SPECIFIED HERE 

ERROR 165 ?MSG AO ERROR AFTER TIMEOUT 

ERROR 166 :MSH BO RROR 

ERROR 16 7MSG Al ERROR 

ERROR 170 *MSG B1 ERROR 

MOV #-1, COUNT 

JSR Pc, CLKON ;TURN ON CLOCK 

MOV #0; UNITB *SETUP PORT 

JSR PC’ DRAV :SEE IF ORV AVAIL 

BR 1$ ?BR IF NO 

ERROR 103 :PORT B AVAIL BEFORE TMO OR RLS 
MOVB #’A, MSG19A 

MOV SUNIT,RY 

ADD UNITB; RY 

JSR PC, FAtT3 

ERROR 110 ;NO ATTN ON PORT A TO ALLOW SEIZE 
ISR PC, CLKOF ;TURN CLOCK OFF 


SEQ 0126 


oe 


K10 


CZR6GBO RK611 DU PORT LGC TST MACY11 30A(1052)_ O3-JAN-78 08:56 PAGE 127 
CZR6GB.P11 


03-JAN-78 08:46 Te7 TEST TIMEOUT RETRIGGER THRU PORT ’B’ 


032270 005137 001366 COM COUNT ;GET ACTUAL COUNT OF TIMEOUT 

032274 023727 001366 Od00043 CMP COUNT, #35. ; COMPARE Sg! AGAINST APPROX 1 SEC 
032302 002001 BGE TST30 3,60 TO NEXT TEST 

032304 104153 ERROR 153 : +IMEoUT DID NOT RE-TRIGGER 


SEQ 0127 


L10 


CZR6GBO RK611 DU PORT LGC TST MACY1I1 30A(10S2) O3-JAN-78 08:56 PAGE 128 SEQ 0128 
CZ2R6GB.P11 03-JAN-78 08:46 T30 TEST PORT ’A’ TIMER INHIBIT 

6662 5 ia a teat feat af fk ee 

pees ; ATEST 30 TEST PORT ’A’ TIMER INHIBIT 

eee 3 8: PORT ‘B" ATTEMPTS TO SEIZE THE DRIVE 

Pees :% g. PORT 1B Re (EG Cee The EAE. 

6668 i# D. PORT ’A’ ATTENPTS To GET THE ORIVE BACK. 

peS3 1% THE PROGRAM VERIFIES THAT PORT ’A’ CANNOT ACCESS 

b671 i THE DRIVE FOR APPROX 1 SEC 

6673 . 

peed 032306 ooD004 ene eae 

bb 932310 O1e737 gg0go1 001174 : HOV #1, STIMES ;;DO 1 ITERATION 

6678 004737 O45534 JSR PC, SuBeCR 

6673 i ERROR ety ;CERR AFTER SCLR 

r396e 001222 000010 MOV IT, RKCS2(RS) :SETUP FOR PORT B 


Beas paesun pesces boe4ed bnocIO nS ea 
OS65 B,MSG19A 


Sead Oae3E0 beScES eae te rt AOD. oF § Re (RS) ;RELEASE PORT B 

O323eb Besses 6030 1 ppe9t8 ADY SCE DRY Rest 
6686 374 004737 3372 JSR PC, DOCMD 300 SELDRV_ (STATUS) CMD & GET CONTR RDY 
b687 032400 104117 ERROR 11? :NO ROY AFTER SEL DRV CMD 
6689 1 000010 MOV SUNIT,RKCS2(RS) ;SETUP FOR PORT A 
Besa Basuis pises? Sones Boeaes MOV #0. UNtTB 
6631 032416 063765 GOS4e4 Depsen AOD UNtTB RKCS2(RS) 

te 

pes §35482 415535 900001 005314 MOV BoELDRY He HCS1 
6694 40 004737 043372 JSR PC, DOCMD ;D0 SELDRV_(STATUS) CMD & GET CONTR RDY 
5695 44 104117 ERROR 90° :NO RKY AFTER SEL DRV CMD 
6697 O32446 0327327 OD0040 o0s342 BIT #0. DRA, HMR2 ;SEE_IF DRIVE AVAIL ON PORT A 
6698 O0324S4Y 001001 BNE 64S *BR IF YES 
6699 osee8 104071 a ERROR 71 :PORT A NOT AVAIL AFTER PORT B RLS 
BS i 004737 oO45S534 . JSR PC, SUBCLR 
670e 032464 104024 ERROR 24 ;CERR AFTER SCLR 
7 012737 464 MOV % ;SETUP FOR PORT B 
x4 B3e 158 t13939 tetegtat Bee a} MOVB ve. sneGi aA 
67) 3 004737 O4417e JSR ;PORT B TRIES TO SEIZE THE DRIVE 
670 000401 BR Fg, O :BR IF NOT A 
6708 032510 104103 ERROR 103 :PORT B AVAIL BEFORE TMO OR RELEASE 
710 127 1S: v acc R,RKC 
a 5 O15? gs eetayte HOV NTT RuCSaC Re} ;SETUP FOR PORT A 
671 127 0000 005464 MOV 
6713 032534 063765 005464 oO00010 ADD st RECS2(RS) 
6714 O3e542 112737 900101 056560 MOVB 1 
6715 0325 066765 90001 000010 ADD eRLS RKCS2(RS) ;RELEASE PORT A 
6716 0325 0127 00001 0605314 MOV #SELORV,HCS1 
6717 032564 004737 043372 JSR PC, DOC mon ;DO SELDRV (STATUS) CMD & GET CONTR RDY 


CZR6GBO RK611 DU PORT LGC TST 
CZR6GB.P11 03-JAN-78 08:46 


032570 104117 
6720 032572 O13 001222 
beh Haase Weree Biaie 


Fe 5 ll 


672 
67. ooo040 
7 19 t 
$ 1 
7 2737 
6733 032656 112737 000101 
fed aee79 48) 044172 
7 7 1 
Ge cazsry res scommn 
$38 GRENOBLE 
6740 710 7 047114 
eos 4 137 001222 
674 7 OOS464 
6743 e7e4 004737 044214 
ee 032730 104110 
6746 032732 7 047162 
6747 032736 005137 001366 
6748 O3e74e O0e37e7 001366 
6749 032750 002001 
be O03e7Se 104153 
67' 
ees 
6754 
6755 
6756 
oe 
758 032754 
6759 032756 O1le737 O00001 
cee Heres Bieri BAe 
ch tiered ee 
o7es Bi aces 001222 
Gre BOS Bueree Bette 
6766 033020 112737 000101 
6767 shee Bes? 5 ay 
p7e8 127 00001 
6763 033042 004737 04337e 
p77 033046 104117 
6772 033050 013765 001222 
6773 033056 012737 O00 


000043 


001174 


M10 


MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 129 
T30 TEST PORT ’A’ TIMER INHIBIT 
ERROR 117 ;NO ROY AFTER SEL DRV CMD 
MOV SUNTT |RKCS2(RS) ;SETUP FOR PORT B 
BBY Gary Recsecrs) 
MOVB #:8,MSG19A_ 
HM Ba bBENO :20 DO SELDRY TATUS) CMD & GET CONTR RDY 
ERROR 11? AE TE SEL ORV C 
BIT . DRA, HMR2 E IF DRIVE AVAIL ON PORT B 
BNE bbs : SE, ves 
a. OR 1 ‘Bort B NOT AVAIL AFTER PORT A RLS 
: MOV UNIT ;SETUP FOR PORT A 
MOVB #’°A,MSG19A 
JSR tae 
PRROR 1 ;PORT A AVAIL BEFORE TMO OR RELEASE 
2s: MOV aCCLR RARKCSI (RS) 
MOV 
JSR Pc ret KON 
MOV NIT,RY 
ADD UNITB;RY 
JSR PC. FATT3 
ERROR 110 ;NO ATTN ON PORT A TO ALLOW SEIZE 
JSR PC, CLKOF ;TURN CLOCK OFF 
COM T + ACTUAL COUNT OF TIMEOUT 
CMP COUNT, #35. COMPARE AGAINST APPROX I SEC 
BGE TST31 ; NEXT TST 
ERROR 153 $4 hor DID NOT RE-TRIGGER 
: jtenaeaqanunnsssssseeat Ss Tak esr 
j ATE TEST PORT 'B’ TIMER INHIBIT 
. THE PREVIOUS TEST IS REPEATED FOR PORT ’B’. 
s REG KGLERE EERE ERRERERRRRRRRRRRE RARER AERA RRA RAE RRR AREA KA AKAAKRAAHKKE 
+8731: SCOPE 
OV #1,STIMES ;;D0 1 ITERATION 
v aSTACK, SP 
Jar PC, SUBCLR 
ROR 24 ;CERR AFTER SCLR 
MOV SUNIT RKCS2(RS) ;SETUP FOR PORT A 
MOV UnNtTs 
ADD UNtTE RKCS2(RS) 
MOVB MSG19A 
ADD eats RKCS2(RS) ;RELEASE PORT A 
MOV #SELORV,HCS1 
ISR PC, DOCMD 3D0 SELDRV (STATUS) CMD & GET CONTR RDY 
ERROR 117 ?NO RDY AFTER SEL DRV CMD 
MOV S$UNIT,RKCS2(RS) ;SETUP FOR PORT B 
MOV #1,UNITB 


000010 
O0OS464 


SEQ 0129 


CZR6GBO RK611 OU PORT LGC TST 
CZ2R6GB.P 


ll 03-JAN-78 08:46 
4 005464 

oF oe 30 +4 000102 
he | 1 1 1 
cre faults Gers 
67 

6780 114 37 000040 
678 lee 1001 
6 1 104071 
ere 3 7 04SS34 
Be Els (Uk 
6787 134 O1 00 
Gee Guuias Suara pps 
Th sat : 7 172 
ey SE i 
SS GanIEe Blgres spo 
6795 i? 1e7. 1 
67 4 
6798 Je 1 
67 a AS. 9008 
es 104117 

8 1 001222 
2 GE Ql uRee 
see fae ae Bae: 
cee teens Maree Ba 
P8038 033908 104117 

6811 033304 032737 OO00040 
681 33312 901001 

6813 033314 104071 
6814 033316 
6815S 3316 0157 37 ooo001 
att) 3 12737 00010e 
681 pane 4737 044172 
6818 000401 

Paka 033340 104103 

682 127) 
es Bee 
6823 033356 737 047114 
6824 O3336e 013704 OOleee 
6825 3 3704 QO0SY64 
6826 33 4737 4214 
PEse 033376 104110 

6829 033400 004737 047162 


MACY11 30A( 1052) 
T31 


64S: 


ooS464 
O0S6S560 


1S: 


65$: 


oooo00 
001366 


2s: 


Nl 


03-JAN-78 08:56 PAGE 130 
TEST PORT ’B’ TIMER INHIBI 
UNITB, RKCS2(RS) 
MOVE ry m5G19A 
SSELDRV HCS1 
oN PC, DOCMD 
ERROR 11? 


BNE 64S 
ERROR 71 
ISR PC, SUBCLR 
ERROR 24 
MOV #0, UNITB 
MOVB #’A.MSG19A 
ISR Pc, DRAV 
BR 1s 
ERROR 1 
MOV #CCLR, RKCS1(RS) 
MOV SUNIT’ RKCS2(RS) 
nov #1, UNITS 
Dp UNITB. RKCS2(RS) 
MOVB #’8,M5G19A 
ADD #RLS, RKCS2(RS) 
MOV sSELORV,HCS1 
ISR PC, DOCMD 
ERROR 11? 
MOV SUNIT .RKCS2(RS) 
MOV #0, UNIT 
ADD UNI TB, RKCS2(RS) 
MOVB #’A,MSG19A 
MOV #SELDRV,HCS1 
ISR PC, DOCMD 
ERROR 11? 
BIT #D. DRA, HMR2 
BNE 65$ 
ERROR 71 
MOV #1,UNITB 
MOVB #’B.MSG19A 
JSR Pc, DRAV 
R 2s’ 
ERROR 103 
MOV #CCLR,RKCS1(RS) 
MOV #-1, COUNT 
JSR BoLACKON 
MOV UNIT, 
ADD UNITB; RY 
JSR Cc. FAtT3 
ERROR ts) 
JSR PC, CLKOF 


;00 ReLoRy. (STATUS) GET CONTR RDY 
;NO 


AFTER SEL DRV C 
iB F we AVAIL ON PORT 8B 
ORT 8. 8 NOT AVAIL AFTER PORT A RLS 


;CERR AFTER SCLR 
;SETUP FOR PORT A 
;PORT A res TO SEIZE THE DRIVE 


:BR_IF NOT AVAIL 
;PORT A AVAIL BEFORE TMO OR RELEASE 


;SETUP FOR PORT B 


;RELEASE PORT B 


;00 SELDRV_ (STATUS) CMD & GET CONTR RDY 
;NO RDY AFTER SEL DRV CMD 


;SETUP FOR PORT A 


;00 SELORY (STATUS) CMD & GET CONTR RDY 
;NO RKY AFTER SEL DRV CMD 


Bee re y DRIVE AVAIL ON PORT A 
:PORT A NOT AVAIL AFTER PORT B RLS 


;SETUP FOR PORT B 


;PORT B AVAIL BEFORE TMO OR RELEASE 


;NO ATTN ON PORT B TO ALLOW SEIZE 
; TURN CLOCK OFF 


1l 


CZR6GBO RK611 DU PORT LGC TST MACY11 30A(10S2) O3- JAN 798 F PAGE ott SEQ 0131 
CZR6GB.P11 03-JAN-78 08:46 T31 TEST PORT ’B’ FineR INHIBIT 
6830 033404 005137 001366 COM COUNT ;GET ACTUAL COUNT OF TIMEOUT 
6831 033410 023727 001366 000043 CMP COUNT, #35. ; COMPARE AGAINST APPROX 1 SEC 
| 6832 033416 002001 BGE TST32 ; TO_NEXT TST 
e833 033420 104153 ERROR 153 + INEOuT DID NOT RE-TRIGGER 


i 
< 


Cll 
SERRE OKO OU ron 7BCoarge «© MACYE2 39861052), OF JROAB COMMAND TERER YRHIBIT THRU PORT ‘A’ ——— 





6835S $3 KREKRMEKEKHEKKKKKKERKEKEHEK EERE KKEMRLE LEEKS KERR KEELER HERES RERE 
pa ;ATEST 32 TEST UNLOAD COMMAND TIMER INHIBIT THRU PORT ’A’ 
1 a VERIFY THAT THE UNLOAD COMMAND THRU A PORT, SEIZES THAT 
33 1a PORT FOR AS LONG HAS HEADS ARE UNLOADED & RELEASE IS NOT 
6841 ;% ISSUED. 
6842 x 
6843 i A. ISSUE AN UNLOAD COMMAND THRU PORT ’A’. 
peya iH VERIFY DRIVE UNLOADS & ATTENTION IS SET. 
6846 i B. DELAY FOR S $ CONDS 8&8 VERIFY DRIVE NOT AVAILABLE 
B84? i TO PORT ’B’ INSURE TIMERS INHIBITED 
684 t 
b850 # e. ISSUE A RELEASE FROM PORT ’A’. VERIFY DRIVE BECOMES 
BES. : 
6853 ;# D. LOAD HEADS FROM PORT ’B’ & VERIFY ’ATTN-B’ AT COMPLETION 
peed 2 ; Os gga ccna tg aliases sae eimeaataettbe tS Re Ree eTSS 
ase z #1,S7IMES ;;D0 1 ITERATION 
2 JSR PC’ SUBCLR :SuB SYSTEM CLEAR 29-SEP-77 
v T SP 
eer? SOnrF AkesecRs> ;SETUP FOR PORT 8 
6863 ADD UNI TB, RKCS2(RS) 
6864 MOVB a’ mSG1 
6865 ADD #RLS CSe(RS) ;RELEASE PORT B 
PBES i JSR BSEL ORV, ;D0 SELDRV_(STATUS) CMD & GET CONTR RDY 
ees 033514 ERROR 11? :NO RDY AFTER SEL DRV CMD 
687 16 Mov SUNTT  RKCS2CRS) ;SETUP FOR PORT A 
ba7e DD UNI TB, RKCS2(RS) 
7 MOVB #’A,MSG1 
MOV #SELORV,HCS1 
JSR PC, DocMO 300 SELDRV_(STATUS) CMD & GET CONTR RDY 
ERROR 11? :NO RKY AFTER SEL DRV CMD 
e878 Nee gai BIT 80, DRA, HHR2 ;SEE IF ORIVE AVAIL ON PORT A 
6880 033576 nies ERROR 71 :PORT A NOT AVAIL AFTER PORT B RLS 
bee 74 004 ; JSR PC, SUBCLR 
b883 1 ERROR 24 ;CERR AFTER SCLR 
688S INC UNLD ;USED FOR VALID HALT . 
b886 i 901 76 MOV #2$, SESCAPE 
14% 012737 005314 MOV SUNLOAD, HCS1 ;UNLOAD CMD 
6888 033622 053737 001170 005314 BIS STMPY,HCS1 
6889 033630 013765 005314 000000 MOV HCS1,RKCS1(RS) 
6890 033636 013737 001400 005352 MOV T10, TEMP1 ;SETUP TIMEOUT 
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O3-JAN-78 08:S6 PAGE 133 
ST UNLOAD COMMAND TIMER INHIBIT THRU PORT 'A’ 


PC,FATT2 
73 


. COUNT 


NCs ~Ust *S 
KUO &O 
bee 
tf 


2a 


sSRTSPL,HCS1 
Pc, pocmb 

ial 

T100, TEMP2 
pC, FATTI 

UNLD 

UNLD 


SEQ 0133 


;FIND_ATT 
:NO ATTN AFTER UNLOD CMD 


;PORT B AVAIL BEFORE RLS WHEN UNLOADED 
;UNLOAD DID NOT INHIBIT TIMERS 


;SETUP FOR PORT A 


;RELEASE PORT A 


RO SELDRV_(STATUS) CMD & GET CONTR RDY 
NO RDY AFTER SEL DRV CMD 


,SETUP FOR PORT B 


;D0 SELDRV_(STATUS) CMD & GET CONTR RDY 
;NO RKY AFTER SEL DRV CMD 


3 See Fry pervs AVAIL ON PORT B 
: BORT B NOT AVAIL AFTER PORT A RLS 


;CERR AFTER SCLR 


;D0 START SPINDLE CMD & GET CONTR RDY 
;RDY NOT SET AFTER ST SPIN CMD. 


;SETUP TIMEOUT 
;FIND ATTN 
;NO ATTN AFTER ST SPIN CMD. 


[PERURESUOEHONERE RES EER SRO E TNE T ERO TTTE TeIBIT TOU PORT oe 
TEST UNLOAD COMMAND TIMER INHIBIT THRU PORT ’B’ 


THE PREVIOUS TEST IS REPEATED FOR PORT ’B’. 


; ATES 


+ 
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O3-JAN-78 08:56 PAGE 134 
UNLOAD COMMAND TIMER INHIBIT THRU PORT ’B’ 


Ell 


SEQ 0134 


er re ee eee 


+4133: 


1S: 


Be; SUBcL iPS AVETEN CLEAR 29-SEP-77 
NTT RikCS2CRS) ;SETUP FOR PORT A 
$0, UNt 


= 
#RLS CS2cRS) ;RELE PORT A 
#SELORV, HCS 


PC, DOCMOD ;D0 SELDRV_(STATUS) CMD & GET CONTR RDY 
11? ;NO RDY AFTER SEL DRV CMD 
SUNIT,RKCS2(RS) ;SETUP FOR PORT B 

#1, UNITB 
UNI TB, RKCS2(RS) 

8’ 19A 
-#SELDRV,HCS1 
PC, DOCMD ;D0 SELDRV_(STATUS) CMD & GET CONTR RDY 
11? :NO RKY AFTER SEL ORV CMD 

#0. DRA, HMR2 ;SEE_IF DRIVE AVAIL ON PORT B 

4§ BR IF YES 

1 ‘PORT B NOT AVAIL AFTER PORT A RLS 
PC, SUBCLR 

;CERR AFTER SCLR 

UNLD re ;USED FOR VALID HALT 

#UNC ACS: - ;UNLOAD CMD 
STMPY HOS 
HCS1 RKCS1(RS) 
Ti Tenei ;SETUP TIMEOUT 
PC, FATT2 *FIND ATT 
73 !NO ATTN AFTER UNLD CMD 

#300. , COUNT 

hy ;00 5 SEC DELAY 

#0’ UNITB :SETUP FOR PORT A 

#’A. MSG 
PC, ORAV 

iss ;PORT A AVAIL BEFORE RLS WHEN UNLOADED 

:UNLOAD DID NOT INHIBIT TIMERS 


) 
) ;SETUP FOR PORT B 


19A 
a gt ;RELEASE PORT B 
b ;D0 SELDRV (STATUS) CMD & GET CONTR RDY 


Fill 


CZR6GBO RK611 DU PORT LGC TST MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 135 SEQ 0135 
CZR6GB.P11 03-JAN-78 08:46 733 TEST UNLOAD COMMAND TIMER INHIBIT THRU PORT ’B’ 

7003 034464 104117 ERROR 117 ;NO ROY AFTER SEL DRV CMD 

7005 1 B§ 1222 000010 MOV SUNIT,RKCS2(RS) ;SETUP FOR PORT A 

7008 56 1 005464 MOV #0, UNITB 

? 765 464 000010 ADD UNITE RKCS2(RS) 

7008 1 1273 101 OS6S60 MOVB MSG19A 

7009 16 2737 000001 005314 MOV SSECDRY HCS1 

i0 737 043372 JSR PC, DOCMD 20 SELDRV (STATUS) CMD & GET CONTR RDY 

7513 0345. 104117 ERROR 11? NO RKY AFTER SEL DRV CMD 

701 034532 032737 o00040 o0s342 BIT #D. DRA, HMR2 ‘oat IF DRIVE AVAIL ON PORT A 

7014 46 001001 BNE 65$ :BR IF Y 

2015 ue 104071 _. ERROR 71 :PORT A Ser AVAIL AFTER PORT B RLS 

2017 34544 005037 001176 2s: CLR SESCAPE 

7019 SSO 004737 O4SS34 ISR PC, SUBCLR 

7020 554 104024 ERROR 24 ;CERR AFTER SCLR 

702. SS& 012737 000011 005314 MOV #SRTSPL,HCS1 

5085 O34 4 ebay 043372 JSR PC, DOCMD ;DO START SPINDLE CMD & GET CONTR RDY 

7084 034570 104121 ERROR lel :RDY NOT SET AFTER ST SPIN CMD. 

oOSe S72 013737 001406 005354 MOV T100, TEMP2 ;SETUP TIMEOUT 

7027 600 004737 044006 JSR PC, FATTI :FIND ATTN 

7028 034604 104074 ERROR 74 :NO ATTN AFTER ST SPIN CMD. 

7030 034606 005037 005276 CLR UNLD 

703¢ 034612 005037 005276 CLR UNLD 

7034 

7035 5 = REKREKRKKESKRRELERKRRKEEKEEKRARA EASA KE RRA RLA ERR RRRARARAARAKRAKALEE 

7036 jkr 34 TEST RECAL COMMAND TIMER INHIBIT THRU PORT ’A’ 

7038 1 i VERIFY THAT THE RECAL COMMEND THRU A PORT SEIZES THAT PORT 

7038 i FOR AS LONG AS THE RECAL IS IN PROGRESS & RELEASE IS NOT ISSUED. 

7041 i A. ISSUE A RECAL COMMAND FROM CYL 410 THRU PORT ’A’ 

7043 $3 B. VERIFY PORT 'B’ CANNOT SEIZE THE DRIVE UNTIL PORT ’A’ 

7044 1 3 RECEIVES ATTN AND TINES OUT. THIS INSURES THAT 

70us i THE TIMERS ARE INHIBITED. 

7047 } + KEES KKERRRERRRRRRRR RRA RRR RARARRAR RRR RRKER RA RAARAA RA RRAAARARREE 

7048 034616 OO0004 +6734: SCOPE 

7049 620 012737 OO00001 001174 MOV #1,STIMES ;;00 1 ITERATION 

7050 ma] 0047 7 045534 ISR PC; SUBCLR a0 B oeyotsn CLEAR 29-SEP-77 

7051 i 4 ERROR 24 +29-SE 

7052 34 012706 001100 MOV aSTAC 

7053 034640 013765 001222 oo00010 MOV SUNT Keres2cRS) ; ;SETUP FOR PORT B 

7054 O34646 O18? Ol 464 MOV UN TB 

ree Gnices ies Bees erg, EN eamiggeces 

7057 nett 062765 ta 000010 ADD eRCS RKCS2(RS) ;RELEASE PORT B 


00001 
7088 034676 012737 000001 005314 MOV #SELORV,HCS1 


Gll 


CZR&GBO RK611 DU PORT LGC TST MACY11 30A(10S2) 03-JAN-78 08:56 PAGE 136 SEQ 0136 
CZR6GB.P11 03-JAN-78 08:46 T34 TEST RECAL COMMAND TIMER {RHIBIT THRU PORT ‘A’ 
7059 034704 004737 043372 JSR PC, DOCMD ;D0 SELDRV_(STATUS) CMD & GET CONTR RDY 
2 : 034710 104117 ERROR 11? :NO ROY AFTER SEL ORV CMD 
7 1 1222 000010 MOV SUNIT,RKCS2(RS) ;SETUP FOR PORT A 
7 7 464 MOV r UN T 
7064 5 464 010 ADD UNI TB, RKCS2(RS) 
706S fre 18737 900101 6560 MOVB #’°A,MSG19A 
s0be G 7 127 01 S314 MOV #SECDRV,HCS1 
7067 O34 737 043372 JSR PC, DocMD ;D0 SELDRV_ (STATUS) CMD & GET CONTR RDY 
g 8 034754 104117 ERROR 117 :NO RKY AFTER SEL DRV CMD 
7076 o3u 932737 000040 o0S342 BIT #D. DRA, HMR2 ;SEE_IF DRIVE AVAIL ON PORT A 
71 764 1001 BNE 64S :BR IF Y 
202 034766 104071 =o ERROR 71 :PORT A NOT AVAIL AFTER PORT B RLS 
7074 770 004737 045534 ; ISR PC, SUBCLR 
2 7 774 104 ERROR 24 ;CERR AFTER SCLR 
70 034776 012737 O35464 001176 MOV #S$, SESCAPE 
2078 035004 013765 012770 o00020 MOV LC, RKDC(RS) ;SEEK TO LAST CYL 
oOBT Baene5 p17 3s oa9g35 —, mee pe Bono ;D0 EK agit & GET CONTR READY 
7088 §3ep84 OB 1 ERROR ‘St ?NO TER SEEK C 
7084 035026 013737 oo1412 00352 nov TS0000, TEMP! 3 SETUP TIMEOUT 
708 B3epu0 1 (32 ERROR 132 ?NO ATTN AFTER SEEK CMD 
7088 032737 100000 005314 BIT #CERR,HCS1 
7089 p3e bes 001401 BEQ 655 
7030 035052 104210 ERROR 210 ;CERR AFTER SEEK CMD 
20 035054 65S: 
7094 035054 012737 oOS0340 oDS4O4 MOV #<D.DSC!D.DRA!D.SPIN!D.DRDY!D.VV>,E.AQ ;EXPECTED MSG AO 
905037 0054 CLR £.B0 jEXPECTED MSG BO 
7 1 1017 005410 MOV #<D. SPOK!D.CART!D BRHM!D.SSP>,E.Al ;EXPECTED Al 
7097 035074 012737 OO0001 o05412 MOV #1.£.B1 ;MSG 0 FOR EXPECTED MSG B1 
7038 1 ? DOSY 4 CLR E.A sEXPECTED MSG 
70 1 1 00 005416 MOV #2,£.B2 : D FOR CTED MSG B2 
7100 035114 012737 o00003 oDS422 MOV #3/£.B83 :MSG ID FOR EXPECTED MSG B3 
71 1 7 044274 ISR PC. CHKMSG HE Al, Bl 
5106 §3215e BB daaa WORD oOfOfO ie Rises srecirt EBC HE Re’ 
7104 935139 104161 ERROR 161 Q ERROR AFTER SEEK CMD 
7105 1 1041 ERROR i162 ate B0 E 
7106 134 10416 ERR 163 ?MSG Al ER RROR 
7107 035136 104164 ERROR 164 :MSG Bl ERROR 
7109 
7110 140 012765 100000 ooD000 MOV #CCLR,RKCS1(RS) 
7111 Sse tue 013765 OOle22 000010 MOV SUNIT;RKCS2(RS) ;ORIVES 
7112 035154 063765 005464 O00010 ADD UNITB;RKCS2(RS) °;ADD 1 IF ON PORT B 
7113 035162 012737 O0000S 005314 MOV #CLEAR I 
7114 035170 004737 043372 ISR PC, DOCMD ;D0 DRIVE CLEAR CMD & GET CONTR RDY 
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PAGE 137 
TEST RECAL COMMAND TIMER TNHIBIT THRU PORT ’A’ 


1S1 


SEQ 0137 


;NO_RDY AFTER DRIVE CLEAR CMD 


JSR PC TSTATN :TEST FOR ATTN 
ERROR rte ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
MOV DRA!D.SPIN!D PRB yy 68. ;EXPECTED MSG AO 
iy : sy wee .CART! 6 Bt a _. cm ;EXPECTED Al 
CLR ue Pt a 3 BS 

Y §8°E:85 Nag 1B ESB EXPEETEB Hee 85 
JSR PC CHKMSG, ;CHECK MSGS fnee BO atte . 
ERR 3 whine Reok a FER ia D HER CMD 
ERR S ‘MSG Al RROR 
ERROR ?MSG B1 ERROR 
MOV BRECAL, HCS1 ;RECAL COMMAND 
BIS STMPY Acel 
MOV BCS | RKCSICRS) 
MOV SUNIT,RY 
ADD UNITB; RY 
BITB ATTN(RY) , RKASOF +1 (RS) -SEE IF ATTN SET 
BNE 3s ;BR IF YES 
MOV #1,UNITB ;SETUP FOR PORT 8 
MOVB #’B.MSG19A 
3R Pc, DRAV BER AF F DRV_ AVAIL 

2 N HERE IF NO 
ERROR 177 sPORT, 8 
RECAL oid NOT INHIBIT TIMERS 

MOV accLR RKCS1(RS) 
Nove AUNd TB. Tup P T Bie 
ex % ORY See ie 
ERROR 203 PORT 4 NOT REMAIN AVAIL DURING RECAL 
JSR PC, GSTAT 

T #0! PIP, HMRe ;SEE IF ANY MOTION 
BEQ 4§ :BR IF NO 
ERROR 72 :PIP SET AFTER ATTN RECB FROM RECAL 
mee BaF cOUNT 2 DLY 
MOV #1’ UNITB O01 Gp FOR BORT 8 
MOVB #°B.MSG19A 
JSR Cc, DRAV ;SEE_ IF DRV NOW AVAIL 
ERROR :PORT B NOT AVAIL AFTER TMO 
CLR SESCAPE 


fp RRR KERALA KEELER RR KRAA LEAKE ELLER REA A RLRAKREAERLELE RE 


= — 


CZR&6GBO RK611 OU PORT LGC TST 
O03-JAN-78 08:46 


CZR6GB.P11 


NN 
wr 


NNNNNNNNNNNNNNNNNS 


SESPRIGRSSEESRR PERO Ba oon 


NNNNNNNNNNN 


33 


SESRREGR 


m 
WONOU£ WOW 


NNNNNNNNNNNNN 
mrurururororororury) 
ee ee et eed 


3 


035754 


17 


oo 
er 
Na 
NU 


peieae 
COON &NNNN 


NOW —U) 


nn 


oO~ 
— 
furu 


83 
- 


eX NNN 


F 


005037 


005414 


MACY11 30A(10S2) 
T35 





001176 
000020 


005314 


00S352 


005314 


o0o0S404 


005410 
00S412 


+6735 


64S: 


65S: 


O3-JAN-78 08:56 


PAGE 138 
TEST RECAL COMMAND TIMER INHIBIT THRU PORT °B’ 
paTEST 35 


Cc 

MOV #1, STINES 

JSR PC; SUBCL 
foun ast K,SP 
MOV ONTT RKCS2(RS) 
MOV om untTB 

ADD UNITE RKCS2(RS) 
MOVB 19A 

ADD eRLS RKCS2(RS) 
MOV @SELORV,HCS1 
ISR PC Bocnd 
ERROR 11? 
MOV SUNIT,RKCS2(RS) 
MOV #1 UN TB 

ADD UNt B, RKCS2(RS) 
MOVB mSG19A 

MOV (DRY HCS1 
ISR Pc. pocmb 
ERROR 11? 
BIT #D. DRA, HMR2 
BNE 64S 
ERROR 71 

ISR PC, SUBCLR 
ERROR 24 
MOV #SS, SESCAPE 
MOV LC, RKOCCRS) 
MOV #SEEK,HCS1 
JSR PC, DOCMD 
ERROR 1al 
MOV TSOOOO, TEMP1 
ISR pc. FaTte 
ERROR 132 
BIT #CERR,HCS1 
BEQ 65$ 
ERROR 210 
MOV 
CLR .BO 
MOV #0. SPOK!D.CART!6.D 
MOV #1,£.B1 
CLR E.Ae 


SES 0138 


TEST RECAL COMMAND TIMER INHIBIT THRU PORT 'B’ 
: THE PREVIOUS TEST IS REPEATED FOR PORT 'B’. 
+s a 


TERATION 


;;00 1 
+ ies YSTER CLEAR 29-SEP-77 
29-SEP-77 


; SETUP FOR PORT A 


;RELEASE PORT A 


;D0 SELDRV_ (STATUS) CMD & GET CONTR RDY 
;NO ROY AFTER SEL DRV CMD 


;SETUP FOR PORT B 


‘Ro SELDRV_ (STATUS) CMD & GET CONTR RDY 
NO RKY AFTER SEL DRV CMD 


SEE IF DRIVE AVAIL ON PORT B 
:PORT B NOT AVAIL AFTER PORT A RLS 


;CERR AFTER SCLR 


;SEEK TO LAST CYL 


;D0 SEEK CMD 8&8 GET CONTR READY 
:NO ROY AFTER SEEK CMD 


;SETUP TIMEOUT 
;FIND_ATTN 
;NO ATTN AFTER SEEK CMD 


;CERR AFTER SEEK CMD 


#<0.DSC!D.DRA!D.SPIN!D. provia- VV>,E.AO ;EXPECTED MSG AD 


jEXPECTED It BO 

OR!D.BRHM!O.SSP>,E.Al ;EXPECTED Al 
Ase ID FOR EXPECTED'MSG B1 

;EXPECTED MSG Ae 
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012737 
012737 


ge 
SeSS 


i 
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mo 
=é 


ae Gi 


7eSe 012737 
re Eni Bie 
f S B3e1 B1393° 
ee 03132 004737 
7eS 134 1040 
eel Geis ieee 
reek ENS 
7264 144 27. 
726S Bseiee eae 
72 neeateg 13765 
726 Bat 13704 
7268 172 063704 
7269 6176 13646 
cee SUN. Utla® 
7272 036206 737 
a fee here 
7275 26 1 
7e78 0362 104177 
7278 0362 01276! 
7279 B3E540 B13 23 
72 036246 112737 
7e81 O36eS4 004737 
7e82 036260 104203 


oooo0e 
000003 
044274 
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00S416 
o00S4ee2 


005404 


005410 
o00S41e 


005416 
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oos464 
O0S6560 


oooo000 
00S464 
056560 


66S: 


1S: 


es: 


O03-JAN-78 08:5 1 
TEST RECAL COMMAND TIMER I 


J1l 
P 


PAGE 


#2,£.B82 :MSG ID FOR EXPECTED MSG B2 
#3/£.83 :MSG ID FOR EXPECTED MSG B3 

PC, CHKMSG ;CHECK MSGS AD, BO, Al, Bl 

ofdto 8 AScs SpecIrten HERE 

161 :MSG AO ERROR AFTER SEEK CMD 

162 ?MSH ERROR 

163 :M5G Al ERROR 

164 :MSG Bl ERROR 

sCCLR, RKCS1(RS) 

SUNIT;RKCS2(RS) ;ORIVE® 

UNITB;RKCS2(RS) ';ADD 1 IF ON PORT B 

#CLEAR, HCS1 

PC DOCMD ;D0 DRIVE CLEAR CMD & GET CONTR RDY 

151 "NO _RDY AFTER DRIVE CLEAR CMD 

PC, TSTATN :TEST FOR ATTN 

154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


8<D.ORA!D. SPIN!D. DRBY:0. VV» E.AO ;EXPECTED MSG AD 


E.B0 ; D 
§<B-SPOK!D. CART! DOOR! D- BRAM! -SSP>,E.Al_ ;EXPECTED Al 
#1,€.B1 MSG ID FOR EXPECTE 1 


; D’MSG B 

E.Ae j EXPECTED MSG 

#2,£.B2 :MSG ID FOR E CTED MSG Be 

#3;£.83 :MSG ID FOR CTED MSG B3 

PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 

T.A2!T.B2!0 : MSGS SPECIFIED HERE 
- 33 ;MSG AD ERROR AFTER ORV CLEAR CMD 

34 :MSH ERROR 

35 :MSG Al ERROR 

36 :MSG B1 ERROR 

#RECAL,HCS1 ;RECAL COMMAND 

STMPY. HCS1 

HCS1,RKCS1IC(RS) 

SUNIT,RY 

UNITB: RY 

ATTN(R4Y),RKASOF+1(RS)  ;SEE IF ATTN SET 

3$ ;BR IF Yes 

#0, UNITB ;SETUP FOR PORT A 

#’A.MSG1SA 

Pc, DRAV jSEE IF DRV_ AVAIL 

2s ?RETURN HERE IF NO 

177 :PORT A AVAIL 


A_AVA 
;RECAL DID NOT INHIBIT TIMERS 
eCCLR,RKCS1(RS) 


#1, UNtTB 

#’B.MSG19A ;SETUP PORT B 

Pc. DRAV :SEE IF ORV AVAIL 

203 :PORT B NOT REMAIN AVAIL DURING RECAL 


SEQ 0139 


K1l 


CZR6GBO RK611 DU PORT LGC TST MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 140 SEQ 0140 
CZR6GB.P11 03-JAN-78 08:4 T35 TEST RECAL COMMAND TIMER INHIBIT THRU PORT 'B’ 
7283 036262 000745 BR 1$ 
7285 g36264 737 045146 3S: ISR PC, GSTAT 
? 737 O20000 005342 BIT #0: PIP,HMR2 ;SEE_IF ANY MOTION 
v4 140 BEQ 4s :BR IF _NO 
7288 7 ERROR 7 ‘PIP SET AFTER ATTN RECA FROM RECAL 
5583 ie peace, Ruyiry OOLISS ss oy BREE ACOUNT D0 2 SEC DLY 
7231 Bassi Slzrar Ga0000 gosyey hoy, wo, UNITe. Seip FOR’ Boar 
7293 036330 004737 044172 ISR PC, DRAV ; SEE IF DRV NOW AVAIL 
7e34 036334 10404S ERROR 45S ‘PORT A NOT AVAIL AFTER TMO 
723 036336 005037 001176 S$: CLR SESCAPE 
7298 
7239 3 « LHR REKKERERERERKRERERA RRR RAAARAAREAKAARRRARKRRAKARRAARARRARRAAERE 
7300 jh ST 36 READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL # 
7302 1 THIS TEST VERIFIES THAT cyt. g32 (1456 FOR RKO7) TRACK S CAN BE READ. 
7303 1 i THIS AREA CONTAINS. BAD SECTOR INF : WHICH IS WRITTEN THE oe 
7304 1% FACTORY Y DURING MANE Laene SECTOR INFO (BSE) wire’ STORE 
7305 i# AT THIS TIME TO MASK FU READ HEADER OR DATA ERROR INTGUTS. 
7307 1% SECTORS 0,2,4,6,8 CONTAIN IDENTICAL INFO FOR 22 SECTOR HARDWARE DETECTED BAD SEC 
7308 5 SECTORS 16, 12)14, 16, 18,20 DENTICAL INFO FOR 22 SECTOR SOFTWARE DETECTED 
7310 ti IF BSE INFO CANNOT BE READ, OR IF AFTER READING THE BSE INFO 
7311 1a IT IS DETERMINED THAT AN ALIGNMENT CARTRIDGE IS USED, 
7312 1 i A MESSAGE WILL BE TYPED INDICATING THAT ALL 
7313 1% FUT FORMAT AND TESTS WILL BE 
g3i4 i THIS IS DONE SO AS NOT TO DESTROY BSE INFO OR AN ALIGNMENT PACK BY WRITING 
7316 i# THE PACK SERIAL # IS TYPED IN OCTAL & FOR THE FIRST PASS ONLY. 
Z3i8 036342 00004 i ar. g epepmengereneng repre memantine orntE: 
7 036344 012737 o00001 001174 MOV #1,STIMES ; 1 ITERATION 
o3el 036352 012706 001100 MOV aSTACK, SP SPS TORE STK PTR 
7323 036356 004737 oO4SS34 ISR PC, SUBCLR 
7364 036362 104024 ERROR 24 ;CERR AFTER SCLR 
yes GSS LITE Dae goons = FY SUNIA A AECSRCRS) SETUP FOR PonT 
ee a 
rae Heus fheres Beenie Beers a heim saan Pea 
7332 036430 004737 043372 JSR PC boemd ;D0 SELDRV_ (STATUS) CMD & GET CONTR RDY 
7333 036434 104117 ERROR 11? :NO RDY AFTER SEL ORV CMD 
7338 036436 013765 001222 990010 mov SUNTT RKCS2(RS) ;SETUP FOR PORT A 
7337 O364S2 063765 BOSaes 000010 ADD UNI TB, RKCS2(RS) 
7338 036460 112737 000101 OS6560 MOVB #’°A,MSG19A 


eRece. 


7339 
7340 


RK611 
Pil 
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Baarar baga7e 


032737 o00040 


004737 O4SS34 


005037 005354 
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ce psa 
12737 goa 7ee 
037 414 
127 0002 
1 0003 


eA 045534 


Beses? 8384 


005737 O0S356 


MACY11 ht 08 


005314 


00S342 


ooo00S 


64S: 


Lil 


-JAN-78 08:56 PAGE 
& SAVE BAD SECTOR I 


#SELDORV,HCS1 
PC, DOCMD ;D0 SELDRV (STATUS) CMD & GET CONTR RDY 
11? :NO RKY AFTER SEL ORV CMD 

#0 DRA, HMRe ;SEE IF ORIVE AVAIL ON PORT A 

71 :PORT A NOT AVAIL AFTER PORT B RLS 


PC, SUBCLR 
24 


TEMP2 
TEMP3 :O= TOR HARDWAR' TECTED TABL 
fogs SEEIGR SOPWARE BETEETER 18 TABLE 

#BSE22H,TEMPY  :STORE 22 SECTOR HARDWARE BSE ADDR. 
TEMPY, RKBACRE) 

#1000; TEMPS ;TRACK 2, SECTOR O 

TEMPS; RKDACRS) 

LC, RKDC(RS) ;LAST 

#-256. ,RKWC(RS) ;LOAD GORD CT 

SUN T, BKC (RS) 

ROpata esl 
PC, DATCMD ;D0 READ DATA CMD & GET CONTR READY 
BSE ic ROY ePTER READ DATA CMD 
PC. GSTAT 

a ,HCS1 

227 ;CERR AFTER READ DATA CMD 
g<B,DRALD. .SPIN!D. -DROY0.¥ :WV> 4 E. AO :EXPECTED MSG AD 
#<D- SPOK!D. cari ie BOOR! CTED tec 4! BOSSP ,£.Al_ ;EXPECTED Al 
a1, Bl fey 0 FOR ORT EX eTEb" MSG Bl 

as MSG mSG 1D CO OR EXPECTED MSG Be 

FOR EXPECTED MSG 83 

PC, CHKMSG CHECK K MSGS AD Al, Bl 
odio & MSGS SPECIF LED Be ERE 

4 fe ad ER ROR AFTER READ DATA CMD 
Sb :MSG Al ERROR 
30 :MSG B1 ERROR 
PC, SUBCLR 
24’ ;CERR AFTER SUBCLR 

TEMP: 
TEMPE, #5 ;READ ALL S SECTORS? 

TEMP3 
2s 


3 ‘5 TYPE PACK SERIAL & 


;CERR AFTER SCLR 


SEQ 0141 


CZR6GBO RK611 OU PORT LGC a. 


CZR6GB. pt ra Sepdina! 


7398 104233 
Lex. 036762 000414 
pag BBESES bbss 

7400 036 013765 


PPPPPPF? 

ee ee ee 

UL WO 
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7418 037066 
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8 
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001216 


ae 
o3 be 


oooco1 
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T36 READ 


oGoo04 
00S$362 
000006 


000001 


bo0004 


bo0006 


001174 


& SAVE BAD SECTOR INFO & TYPE PACK SERIAL # 
ERROR 233 ;CANT READ SECTORS 0,2,4,6,8 


BR 3 
es: BROR 330 ;CANT READ SECTORS 10,12,14,16,18,20 
S$: MOV TEMP4,RKBACRS) ;RESTORE TABLE ADDR 

ADD } SETUP TO READ 2 SECTORS FROM LAST 


#2, TEMPS 
HOV TEMPS, RKDACRS) * 


ss: ROPES et FO NEXT Te TEST, 


as: TST BSE2CH+6 : TEST CARTRIDGE YPE os 
PRRor 38s FACIGRHENT CARTR Gael Nita 
INC & ERR :SET BSE ERROR FLAG. 

gg: INC TEMP3 


EMP2 
MOV #BSE22S, TEMP4Y  ;STORE 22 SECTOR SOFTWARE BSE ADDR 
TEMPY , RKBA(RS) 


MO 
MOV #1012, » TEMPS ; TRACK 2, SECTOR 12 
MOV T »RKDACRS) 
JMP 1$ ; REPEAT 


as Mee 


GO TO NEXT aa IF NOT 1’ST PASS 


TYPE MSG17 + AER T SERIAL # 

MOV be BH. -(SP) 

ISR ;CONVERT DBL BINARY WORD TO OCTAL 
JSR PC: SSUPRS : TYPE SERIAL # 

TYP: + SRLE 

TYP RLF 


. rT ee ee 
ikTES DATA TESTS 


; VERIFY UNIS DATA CAN BE HATTTEN THRU EITHER PORT & READ 
BACK CORRECTLY THRU BOTH PORTS. 


A. ALL O’S ARE WRITTEN THRU PORT ’A’ ON CYL O, SECTOR QO, 
TRACK 0 & VERIFIED BY READING BACK THRU BOTH PORTS. 


. PRRck ae event Teb ‘By MRE ADING BACK THRU Both BORTS" % 


C. THE PROGRAM CHECKS THAT CYL O WAS NOT OVERWRITTEN 
BY READING & VERIFING ALL O’S THRU PORT ’B’. 


1 sige > pa eamaemamaarsar earned aaaammammacmiamemmccecetits 
MOV #1,STIMES ;;00 1 ITERATION 


Seer ee Se eres ee ee ee ee 
eRe Me CC I ORC iC aC Db 


SEQ 0142 


CZR6GBO 


RK611 OU PORT LGC TST 


CZR6GB.P11 


74 


037162 


037502 


37 
eet 4 
1 th 

1376 
13765 
01276 


012737 
004737 


104012 


03-JAN-78 08:46 


001100 


Neseseee 
35 


040246 
100000 
037342 


MACY11 30A(10S2) 
T37 


005314 


005330 


000012 


000000 


64S: 


65S: 
665: 


O3-JAN-78 08:56 PAGE 143 


DATA 


TESTS 


sSTACK, SP 
SUNIT RKCS2(RS) 
untTe RKCS2(RS) 


8’B.MSG19A 
eRLE. RKCS2(RS) 
HCS1 


CYL C(R 
GOAT PORKES RS 
soni AACS (RE) 


#<WROATA> , HCSL 
PC, DATCMD 


i’ 
GSTAT 
ace, HCS1 


#BSE , HER 
PC, TRUERR 

67$ 

SECTOR 

SECTOR, #10. 

&S$ 

7$ 

wCCLR, RKCS1(RS) 
12 


;SETUP FOR PORT B 


;RELEASE PORT B 


iho SELDRV_(STATUS) CMD 
NO RDY AFTER SEL DRV C 


SETUP FOR PORT A 


& 
MD 


GET CONTR RDY 


;00 SELDRV_ (STATUS) oy FE GET CONTR RDY 


;NO RKY AFTER SEL ORV 
i BEE ET yee DRIVE AVAIL ON PORT A 
:BORT A ‘ROT AVAIL AFTER PORT B RLS 


;CERR AFTER SCLR 


-HOLD DATA 
;SETUP TO WRITE 
:SETUP DATA 
:SETUP CYLINDER 


;D0 DATA X FOR CMD & MM CONTR RDY 
:NO_RDY AFTER WRITE DATA CMD 

;GET FRESH STATUS 

;8R IF NO ERRORS 


;SEE }F are SECTOR FLAG 


R_IF_NO 
SELSE SEE IF FEC TOR LISTED IN BSE TABLE 


;RETURN HERE IF N 


;RETURN HERE IF YES 
i Bae 10 CONSEC. SECTORS BAD 


IF _NO 
;ABORTING TEST DETECTED 10 BAD SECTORS 


;BYPA' 
;TRY ANOTHER SECTOR 
;CERR WITH WRITE DATA CMD 


SEQ 0143 


| CZRGGBO _RKG11 DU PORT LGC TST 
C2R6GB.P11 © 03-JAN-78 08:46 
| 7507 7 010340 
ee ee ae 
7510 1 
se18 : A434 
7513 44 012737 o00003 
7514 
1S 044274 
16 3 
a ee | 
sels fares iets 
pess bogia? + ase44 
7523 037600 104043 
760 2737 10340 
7614 O1 
7622 7 


Bee 
: 
aes 


42 
ce i 
2 ie 
104053 
4 
72 OBe 
74 a A po.eee 
sie Bares ete 
b3p73e 01 ; Rosas 
ean Bits OO 
ras BIS Saieee 
5590 eet Biol 
Bere Bates 
10 104117 
genus BaRGgy oom 





MACY11 30A(10S2) 
T37 


oos404 


00S410 
00S41le 


00S416 
o00S4e2e 


oos404 
Oui 
412 


00S416 
00S42e2 


67$: 
68$: 


D 
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ATA TESTS 


SEQ 0144 


#<0.DRA!D.SPIN!0.DRDY 9. ¥V> 46-88 ;EXPECTED MSG AD 


E.80 : T 
S CBO SPOK!D. CART! A DOOR! BUBRHIM!D-SSP>,£. Al ;EXPECTED Al 
#1,£.B1 iS 1D FOR EXPECTED MSG B1 

#2,€.B2 foe {0 POR EXPECTED MSG B2 

#3,€.83 ?MSG ID FOR EXPECTED MSG B3 

PC, CHKMS ;CHECK MSGS BO, Al, Bl 

T.Ae!T.Be!0 8 $ CIFIED HERE 

52 ;MSG AO & AFTER WRITE DATA CMD 

23 :MSH RROR 

53 :MSG Al ERROR 

2s :MSG Bl ERROR 

giisget ?ABORTING BALANCE OF TESTS 

43 ;BAD SECTOR NOT LISTED IN TABLE 
8<D-DRA!D. SPIN!D. DRDY VV? ,£.00 ;EXPECTED MSG AO 
#<0.SPOK!D.CART!D. ' DOAN! SSP ,£. Al ;EXPECTED Al 
#1,£.B1 ;MSG ID FOR EXPECTED MSG B1 

Gane. Be pearee FOR EXPECT D MSG B2 

#3,€.B3 :M5G 1B FOR CTED MSG B3 

PC, CHKMSG ;CHECK MSGS AO Al, Bl 

T.A2!T.B2!0 BeectrteD HERE 

se ;MSG AFTER WRITE DATA CMD 

as Mee Ot pnnoe 

RO CeAR TO DO PORT A FIRST 

R i SEE F DOING PORT ’A’ 

SUNTT RKCS2(RS) :SETUP FOR PORT B 

UNI TB, RKCS2(RS) 

#’B,M5G19A 

aR SARKCSE (RS) ;RELEASE PORT B 

PC, DOCMD 300 SELDRV_(STATUS) CMD & GET CONTR RDY 
11? :NO ROY AFTER SEL DRV CMD 

SUNT  RKCS2CRS) ;SETUP FOR PORT A 

UNI TB, RKCS2(RS) 

#’A,MSG19A 

#SELDRV,HCS1 

PC, DOcMD ;D0 SELORV_(STATUS) CMD & GET CONTR RDY 
11? :NO RKY AFTER SEL ORV CMD 


#0.DRA, HMRe 
69$ 


;SEE_IF DRIVE AVAIL ON PORT A 
;BR IF YES 


CZR&6GBO RK611 DU PORT LGC TST MACY11 30A(10S2) Ox" JBN- 78 08:56 PAGE 14S SEQ O14S 
CZR6GB.P11 03-JAN-78 08:46 T37 DA ESTS 


o4odee 104071 ERROR 71 ;PORT A NOT AVAIL AFTER PORT B RLS 
000137 O40246 7$ ;GO & WRITE CHECK THRU PORT ’A’ 


O00 se rine porsss 90010 | Rov Son RKcs2(rs) iSeTUP FOR PORT A 


Bioses 17279? Bobi01 O56560 Rove Unt Fa ecs2cns) 


eae 
: 
a3 


| 
Ae RO, #1 ;SEE IF DOING PORT ’B’ 
cat4 
7 

7573 O4O066 000010 000010 D #RLS,RKCS2(RS) ;RELEASE PORT A 
ates baat 4 Bagoe3 cenanes: mee SEL ev Resi D LORV_ (STATUS) CM GET CONTR RDY 
rere te {i> ERRorn i? iRO REY AFTER SEL ORV CHD 
7578 O40110 013765 001222 900019 Mov aah ties) | ;SETUP FOR PORT B 

t 
EC oes G.  OntYe akesecRs> 

sg 7 159 7 ; boesi4 Hove #SELDRV,HCS1 

528s Buoiue BAS 899993 JSR reeciar ;D0 SELDRV (STATUS) CMD & GET CONTR RDY 
7584 O401S2 104117 ERROR 11? :NO RKY AFTER SEL DRV CMD 

1 oo00040 005342 IT #D. DRA, HMR2 E IF DRIVE AVAIL ON PORT B 
Fee (NOISY 1001 —_—. BR IF AYES 
7588 O4OL64 104071 noms ERROR 71 PORT B NOT AVAIL AFTER PORT A RLS 
7530 tsa 000137 o40246 ‘ IMP 7S 0 WRITE CHECK THRU PORT ’B’ 
75392 040172 oz0g2 7 oo0002 4s: CMP RO, #2 SEE J IF DID WRT CHK THRU PORT A & B 
reat Bd o8 nent kia 040562 big Et ‘Br st” ROe3, EXIT TEST 

o4 3727 001436 001434 SS: CMP ATAD1, #DATAD E IF JUST WROTE 0’S ON CYL O 
re3 ugei2 O51010 SNE «és take 
7238 14 o1 900012 001360 nov SORTA batho ‘ Ese WRITE 1°S ON CYL 10 
7600 Bu0835 ba0137 89334 IMP ;GO DO IT 

4 001 6S: CLR CYL sRECHK CYL O FOR 0’S 
7ene Buosaa B93039 Bo tasd 001436 MOV SDATAO,DATAOL ” 
7605 0 7S: BIS RK ;SETUP TO WRITE CHECK 
7608 1 14 MOV ak Sat 
re i Ee ce 

1 001 MOV * AKDAL 

7610 1 1354 1370 MOV SECTOR: KD ;COPY FOR FUTURE USE 
7elg 27 005314 MOV BCURTCHK> , HCS1 
761 040320 bos? tere] JSR PC,DATCMD’ ;D0 DATA X FOR CMD _& GET CONTR ROY 
7614 10401 ERROR 1 NO RDY AFTER WRITE CHECK CMD 
7615 o40326 004737 O4S146 SR PC, GSTAT 'GET FRESH STATUS 
7616 0332 032737 100000 005314 BIT #CERR,HCS1 
7617 O403"0 001453 BEG 
7618 40342 032737 oO40000 005316 BIT #WiCE , HCS2 ;SEE IF WRITE CHECK ERROR 
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03-JAN- 


Byosse Giggs 
i 


genes 
Es} 


SRURSnRe as 


ooo 
Hd 


fees Guosso 018737 


004737 


1 

104031 
1088 
104032 


oos2e00 
000137 


ooo0e4 
001434 


037670 


MACY11 30A(10S2) 
T37 


718: 


72S: 
oos404 


00S410 
005412 


ous42e 


ARC HC = 
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DATA TESTS 


71$ 
RKOB(RS) ,WO1l 


Pakor — fRTAO Moe 
BR 


72$ 


ERROR 22 ;CERR AFTER WRITE CHECK CMD 
Moy #<D.DRAID. .SPIN!D. DRDY 10. Ted nae 60 .AO ;FXPECTED MSG AD 

MOV #<D. SPOK!D. cartib° SODRID E.Al sEXPECTED Al 
nov a E.B1 iPeeet ep FOR i pad MSG 

MOV GaNe po isc oP CTED MSG B2 
MOV #3,£.83 :MSG ID FOR EXPECTED MSG B3 

HKM CK Ss 

‘ ORD Fea SHE ES o satan = meee Be Ht eB! HERE 

RROR 37 ; AO ERROR AFTER WRITE CHECK CMD 
RROR 1 ate 

ERROR 60 :MSG H Bo ERROR 

YP MSG21 Oe SR TING BoP ance OF TESTS 

MP $eoP 

MOV .DRA!D.SPIN!D.DRDY!D.VV>,E.A0 ;EXPECTED MSG AD 

CLR Pepe AP ey nse B0 

MOV #<D, SPOK!D.CART!6.DOOR!'D.BRHM!0.SSP>,E.Al  ;EXPECTED al 
MOV #1,.£.B1 ;MSG 0 FOR CTED’MSG 81’ 
noe Ese ae T G B2 

MOV $3’ 6:63 :MSG B FOR gt ED nee B3 

ISR PC, CHKMSG ;CHECK MSGS nee 

a” T.Ae!T.B2!0 Specie HERE 
ERRBR 57 MSG ag ERROR oe FteD. CHECK CMD 
ERROR 31 
ERROR 60 Mec ee ERROR 
ERROR 32 :MSG Bl ERROR 

INC RO 

IMP 2s 


sACTUAL WORD FOR PRINTOUT. - . 
woe AFTER RITE CHO 'O* TYPEON 


© SSE 36 26-3 HE HE HE HE HE HE HE HE HE Ee HH HE HE eH HE HE EE REE ER RHEE RRERE 
0 


ALTERNATING SEEK INTERACTION TEST 


THIS TEST VERIFIES THAT THERE ARE NO TIMING INTERACTION PROBLEMS 


BETWEEN SEEKS FROM BOTH PORTS. 


eof RATER AREY 


3 B SEEK $70 CYLINDER O & RELEASES 


THE PROGRAM VERIFIES THAT UNTIL ATTN IS RECEIVED, 


SEQ 0146 


CZR6GBO RK611 OU PORT LGC TST 
CZR6GB.P11 46 


GB. 03-JAN-78 O08: 
7675 
7676 
7677 
767: 
| Jer 
7680 
| oe8h 
| 768 
7683 
7684 
7685 
76 
rs 
788 
reat Ouose 12737 po00d 001174 
7e3e 2 012706 1100 
7694 pige78 004737 O4SS34 
ree 104024 
76 1 eee 000010 
oeas 1 00001 O0OS464 
7 464 000010 
| Fee ise SonISS Sabsts 
| sre BRP BE 
ss el 
770e 040656 pt 3765 OOi222 000010 
77 4 Ole7 ostes 00S464 
77 464 ovo} 8 
77 127 101 05656 
7710 OY 4 008314 
7711 714 7 33 
gis 20 104117 
7714 0407; oooo4o 00S. 
aa 8 ie 
oo19 x 
5518 040734 "Tee 001414 
770 040740 013737 012770 OO1416 
77 1 
2 ae ed me ae 
5 1376 raid po0020 
77 776 27. 7 4 
77 Bai 008 Ba47 7 paa37e — 
o7e8 041010 104131 
7730 O41012 013737 001412 O053S2 
| 
} 


MACY11 30A( 1052) 
T4O 


© CRC RC RC RC RC CC i RC CC oi 


eee ee ee 


64S: 


03-JAN-78 
ALTERNATING SEEK I 


Ele 


08:56 


PAGE 1 
NTERACTION TEST 


PORT ’B’ SEES CONTROLLER ERROR & DRIVE NOT AVAILABLE. 


PORT ’B’ 
& RELEASES 


THE PROGRAM VERIFI 
PORT ’A’ SEES CONT 


C. THE ABOVE IS 


TOWARD THE CENTE 
D. ie NOT ae te AL Bl Pg A NT ons Oe ERRORS 


SCO 
MOV #1, STIMES 

MOV aStack, SP 

JSR PC, SUBCLR 
ERROR 24 

MOV SUNIT, RKCS2(RS) 
MOV #1, UNITB 

ADD UNtTE RKCS2(RS) 
MOVB #’B,M5G19A 

ADD wRLS RKCS2(RS) 
MOV #SELORV,HCS1 
JSR PC, DOCMD 

ERROR 11? 

MOV SUNIT, RKCS2(RS) 
MOV #0 Unt TB 

ADD UNI TB. RKCS2(RS) 
MO #’A,MSG19A 

MOV #SELDRV,HCS1 
ISR PC mb 

ERROR 11? 

BIT #D. DRA, HMR2 
BNE 64S 

ERROR 71 

CLR WD1 

MOV LC, woe 

MOV #CCLR, RKCS1(RS) 
MOV UNIT, €52(RS) 
ADD UNI 3 RKCS2(RS) 
MOV WO1, RKDC(RS) 
MOV aSEEK HCS1 

JSR PC, Dot 

ERROR ial 

MOV TSOOOO, TEMP1 


S TRE Rive AFTER "ATIN’ IS RECEIVED 


eS par UNTIL ATTN IS RECEIVED 


LER ERROR & DRIVE NOT AVAILABLE. 


ATED_FOR A PATTERN OF CONVERGING SEEKS 


THE CARTRIDGE. 


1 game a caacatatamecgtae” | > Ss tospeppimeama tains es snaittacttg 


+éT40 


;;D0 1 ITERATION 


;CERR AFTER SCLR 
;SETUP FOR PORT B 


;RELEASE PORT B 


;D0 SELDRV_ (STATUS) CMD & GET CONTR RDY 
;NO RDY AFTER SEL DRV CMD 


;SETUP FOR PORT A 


;D0 SELORV_ (STATUS) CMD & GET CONTR RDY 
:NO RKY AFTER SEL DRV CMD 


;SEE Y. DRIVE AVAIL ON PORT A 
Brat a” A NOT AVAIL AFTER PORT B RLS 


;SETUP CONVERGING LIMITS 


;00 SEEK CMD & GET CONTR a 
;NO ROY AFTER SEEK CMD-PORT A 


SEQ 0147 


yee 
_ 
er 


 CZR6GBO RK611 DU PORT LGC TST MACY11 30A(10S2) O3-JAN-78 O08: P 148 SEQ 0148 
| C2R6GB.P11 03-JAN-78 08:46 THO ALTERNATING SEEK INTERACTION TEST 
| 7731 041020 013704 oO0l1222 1S: MOV SUNIT 
| 1 ise 005304 000017 BITB Syn tRSD, RKASOF+1(RS) ;TEST FOR ATTN ON PORT A 
| 39? 1 BNE 3$ ;BR IF THERE 
7, 01 ; o80ro3 posH6H nove Hee SELSE VERIFY PORT B NOT AVAIL 
77 1054 BR pct 
77 1 1 ERROR 103 ;PORT 8 AVAIL BEFORE TMO OR RELEASE 
ca 1 i 42644 IMP 11§ 
774 4 00000 oo00000 2s: MOV #CCLR, RKCS1(RS) 
ooup i bossee DEC TEMP1’ 
7743 1 BNE 1S ;SEE IF PORT A HAS ATTN 
poue ONliod 4 So0161 oseseo Ove «A ISGI9A 
ess ’ 
7746 1ll2 1041 ERROR 156’ ;NO_ATTN ON PORT A AFTER SEEK 
7747 1114 6001 2644 IMP 11S ‘EXIT TEST 
ou a49 11 005464 : CLR UNIT ;SETUP FOR PORT A 
reo GHIIN Berar GoB101 oseseo nove Asc 98 
2 041136 104157 ERROR > ;PORT A NOT AVAIL AFTER SEEK 
4 1140 737 100000 005314 BIT #CERR,HCS1 
7755 pects 1401 BEQ : 
7756 O411 104210 ERROR 210 ;CERR AFTER SEEK CMD ON PORT A 
aa | 0411S2 4: 
ae 11 7 340 o0S4O4 7 MOV #<0.0SC!D.DRA!D.SPIN!D. yy, E.AO ;EXPECTED MSG AD 
7761 1125 aes CLR a ee jEXPECTED Ma 
7762 1164 012737 001720 o0s410 #<D. SPOK!D.CART! b.. 0. BRH: B-85P> E.Al. sEXPECTED Al 
res Salle i HOY 1,681 a lad RéG'e 
7765 1204 O12 o0S41 MOV #2,E. nea CTED MSG B2 
2766 lel2 O1 reeatne 00542 MOV $3° E63 ra 1B FOR CTED MSG B3 
7 1 737 o44274 JSR PC, CHKMSG C BO, al, Bl 
7769 1ge4 , : ofbto + "Feeae Ata 
loeb 104161 ERROR 161 :MSG ER BEEK CMD 
5558 1832 1Ouie3 Reon i rad BO ERROR 
7773 «O41e34 168 ERROR 164 MSG uel, ERROR 
7774 041236 13 001414 001346 MOV WO1, TOCYL :SE TO SEE IF ON CORRECT CYL 
7775 041244 013765 001414 oO00020 MOV 1° RKOC(RS) 
7776 O41eS2 013765 001222 000010 MOV SUNIT, RKCS2(RS) 
7277 041260 063765 005464 000010 ADD UNI TB; RKCS2(RS) 
7779 
7780 041266 012700 001666 v #RHTAB, RO 
7781 O41e72e 012737 O000eS 005314 MOV #<RDHEAD> , HCS1 
7782 041300 004737 043430 JSR PC, DATCMD ;D0 DATA X FOR CMD & GET CONTR RDY 
7783 041304 104171 ERROR 171 !NO ROY AFTER READ HEADER CMD 
ree 041306 032737 100000 005314 i #CERR,HCS1 
7786 041316 104174 ERROR 174 ;CERR AFTER READ HEADER CMD 


Eee -— ose 


CZR6GBO RK611 OU PORT LGC TST 
CZ2R6GB.P11 03-JAN-78 08:46 


7786 mii seo piesed 
7793 pulses piseep 
7791 

77392 

spas Suse Obis83 
sae lges 17s 
ed 
hy Bat 

aol OMi3e4 18737 
oE0s 041405 

7804 1404 12737 
Ee ot 041412 012737 
5808 041420 004737 
oe take ey 
7e03 Glee 108301 
7811 O4%1432e 104302 
gels 041434 104272 
fais Bulie O5100 
gale 041450 sealtane 
7 1g 041450 004737 
7as0 O414S4 104024 
abe puINSe 1375 
ese ears Oes768 
sees Gila bare 
7eez ONisi4 le737 
4 <3 O41S26 104117 
res LIEGE Blazes 
78 1S44 7 
7834 O0415S2 ile73 
2ax9 ett aee Bee ae 
ree BLESS OBRIiE 
a Rises Oae7t 
exo ulboe 0101 
7842 O841606 


O000e4 
| i 

ve af Sd 
100000 
O4S146 


ne 


001666 


00000 
043372 


000040 


MACY11 30A(10S2) 
T4O0 


000010 


oo0s404 


005410 
005412 


005416 
oos42e2 


001346 


005342 


66S: 


67$: 


65$: 


68$: 
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ALTERNATING SEEK INTERACTION TEST sali 
MOV RKDB(RS),(RO)+ ;1°ST WORD FROM SILO TO RHTAB 
MOV RKDB(RS),(RO)+ $2°ND WORD 
MOV RKDB(RS))(RO)+ $3°RD WORD é& 

IT #OLT,RKCS2(RS) 
EQ 675 
JSR PC GSTAT 
RROR 173 ;DLT AFTER READ HEADER CMD 
MOV #<D.DRA!D. SPIN!D. vv ;EXPECTED MSG AO 
CLR EBs : PROYE Ped whe BO 
MOV A SPOK!D.CART!6.D00R!D.BRHM!D. S ;EXPECTED Al 
MOV #1,.—.B1 soe 10 FOR EX eTED" ASc_ Bl 
CLR E.Ae EXPECTED MSG 
MOV #2,£.B2 :MSG ID FOR EXPECTED MSG Be 
MOV #3,£.B3 :MSG ID FOR EXPECTED MSG B3 
ISR PC CHKMSG ;CHECK MSGS a0, BO 
. WORD Tne! T. is MSGS Ptcirt B HERE 
RROR sMSG G a0 ERROR R HEADER CMD 
RROR t 
ERROR 302 nea Al ERROR 
ERROR 272 :MSG Bl ERROR 
MP RHTAB, TOCYL ; CHECK WORD O ONLY, CYL# 
EQ 65S ‘BR IF 
ERROR S51 :WRONG CYL# ON HEADER 
SR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
mov SUNTT RK RKCS2(RS) ;SETUP FOR PORT A 
ADD unt, RECS2(RS) 
aly I 

Dp garg 428 rs) ;RELEASE PORT A 
MOV #SELORV,HCS1 
ISR PC. DO ond ;D0 SELDRV_(STATUS) CMD & GET CONTR RDY 
ERROR 11? :NO RDY AFTER SEL ORV CMD 
MOV SUNIT,RKCS2(RS) ;SETUP FOR PORT B 
MOV #1, UNtTB 
ADD uNntTB RECS2(RS) 

MOVB #’8,MSG19A 

MOV SSELDRV. HCS1 

JSR PC, DOCMD ;D0 SELDRV_(STATUS) CMD & GET CONTR RDY 
ERROR 11? *NO RKY AFTER SEL DRV CMD 

BIT #D. DRA, HMR2 ; SEE IF, DRIVE AVAIL ON PORT B 

ERROR Fal 8 B fay AVAIL AFTER PORT A RLS 


te yl Tes DU PORT LGC TST 
CZR6GB.P 
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> | 
4 
<£ 
? 
~ 
o 
— 
£ 


See BERR 


oi 
1 

i 

1 

7853 1 
7854 1666 
cee 1oc8 
ree? Buldoe 
7858 041710 
BM 
5 178 
7862 
pees puuras 
Pees Sul7ae 
A | ai ee 
7868 Oulpsd 
7869 041756 
7870 
787 Bite 
787 1 
7873 041776 
7874 O4e00e 
7875 O42e004 
7876 O4e0le 
7877 042014 


7688S 04 
i © 
7a} Siete 
7891 042072 


1O431 
B13784 


46S 


Bbiaee 
005304 

101 
044172 


042644 


MACY11 30A( 1052) 
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600010 


ae 


COS352 
000017 


O0S6S60 


oo0000 


OOS464 
0S6S60 


005464 
0S6S60 


005314 


000010 


S$: 


6S: 


78: 
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ALTERNATING SEEK INTERACTION TEST 


#CCLR,RKCS1(RS) 


ee 
Pc Ao K CMD_& GET CONTR READY 
131 RS READY AFTER SEEK CMO-PORT B 


SUNT RY TEMP 1 


ATTN(RY) , RKASOF +1 (RS) ru FOR ATTN ON PORT B 


7 

UNITB ‘RIFE VERIFY PORT A NOT AVAIL 
#’A,MSG19A 

Pc, DRAV 

183 ;PORT A AVAIL BEFORE TMO OR RELEASE 
#CCLR, RKCS1(RS) 

TEMP 1 

5 ;SEE IF PORT B HAS ATTN 
aie 

wee ;NO_ATTN ON PORT B AFTER SEEK 
11$ ‘EXIT 

#1, UNITB ;SETUP FOR PORT B 

#’8,MSG19A 

Pc, ORAV 

15? ;PORT B NOT AVAIL AFTER SEEK 
BCERR, HCS1 

210 ;CERR AFTER SEEK CMD ON PORT B 


#<0.0SC!D.DRA!D.SPIN!D.DRDY!D.VV>,E.AO ;EXPECTED MSG AD 


EXPEC 


0 TED 
1,€.Bi po SPE Ea fsa! B1’ wenn oa 


#0 SPOK!D.CART! if 
A 
EB iRge 4B EQH EXPECTED HSS 83 


profo HE ASGs SPECIFIED he Re’ - 


161 ¢ R0 RROR AFTER SEEK CMD 
igs ee Bi ae 

WDe2, TOCYL Oe TUP 5 Ree IF ON CORRECT CYL 
WD2 : RKDC (RS) 

SUNIT, RKCS2(RS) 

UNI TB; RKCS2( RS) 


SEQ 0150 


genegeo RK611 
C2R6GB.P11 
7839 
5api 042132 
cans 136 
7 Oueiy 
Sane Sige 
re Bae 
7308 
73909 042164 
7910 042170 
oath 042174 
791 
7313 
7914 O42200 
rae ONeEDS 
oats Maat 
7918 O%2216 
7319 
fase Bice 
oa5e O4ee44 
rise Gisses 
5 soon 
rss Baas 
73930 04227 
7931 Bus 74 
7932 sore 
7933 2 
7934 
7935 2302 
73936 2310 
7937 O%e3le 
7938 042314 
7939 
7940 at 
7941 O%e 
73942 
7943 O42322 
7944 2326 
aur Bue340 
734 b4 34 
7948 042350 
7949 
7s) pwaase 
real eae 
7953 
73954 042372 


3 


2229 
Rae 


Sh 
Ord 
Row & 
= 


~ 
Oo 
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oocde4 
000024 
000024 


100000 
045146 


OL Ose 
406 
001720 
000001 
005414 
000002 
000003 
044274 


001666 


MACY11 30A(10S2) 
T4O 


005314 


005314 


000010 


oos404 


005410 
005412 


00S416 
00S42e 


001346 


001416 


000010 
000010 


005314 


005352 


70S: 


71S: 


69$: 


Ile 


O3-JAN-78 08:56 PAGE 151 
ALTERNATING SEEK INTERACTION TEST 


#RHTAB, RO 
#<RDHEAD> , HCS1 
PC, DATCMD 300 DATA X FOR CMD & GET CONTR RDY 
1 :NO RDY AFTER READ HEADER CMD 
SCERR, HCS1 


174 ;CERR AFTER READ HEADER CMD 
RKDB(RS),(RO)+ ;1°ST WORD FROM SILO TO RHTAB 
RKOB(RS);(RO)+ ;2°ND WORD 

RKDB(RS)'(RO)+ ;3°RD WORD 

#OLT,RKCS2(RS) 

PC. GSTAT 

173 ;DLT AFTER READ HEADER CMD 
#<D.DRA!D.SPIN!D.ORDY!D.VV>,E.AO ;EXPECTED MSG AO 
E.B0 “EXPECTED MSG BO 

#<D. SPOK!D.CART!0.DOOR!D.BRHM!D.SSP>,£.Al ;EXPECTED Al 
#1,—.B1 ;MSG ID FOR EXPECTED'MSG B1 

E.Ae + EXPECTED NSC Be 

#2,£.Be :MSG 1D FOR EXPECTED MSG B2 

#3,£.83 :MSG ID FOR EXPECTED MSG B3 

PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 
T.A2!T.B2!0 § SPECIFIED HERE 

301 ;MSG AD AFTER READ HEADER CMD 
a7 *MSH BO ERROR 

0 *MSG Al ERROR 

272 ?MSG Bl ERROR 

RHTAB, TOCYL ;CHECK WORD O ONLY, CYL# 

69S :BR IF 

Si :WRONG CYL# ON HEADER 


PC, SUBCLR 
24 ;CERR AFTER SCLR 


ried ;CONVERGE THE CYLINDERS 
WO1,WO2 ;SEE_IF CONVERGED TOGETHER 


;BR IF NO & REPEAT 
SUNIT,RKCS2(RS) 
UNITB,RKCS2( RS) 


#SEEK,HCS1 
PC, DOCMD ;D0 SEEK CMD & GET CONTR READY 
131 :NO ROY AFTER SEEK CMD 

TSO000, TEMP1 ;SETUP TIMEOUT 


SEQ 0151 


CZR6GBO RK611 DU PORT LGC TST 
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7985S O4e400 004737 
oge8 042404 104132 
ree meine once 
ries Bieiis SHU 
7961 

796e O4e420 

7963 

7964 O4e420 012737 
rae Hes eee 
369 B4s4 B17 7 
re piste Bete 
rs Hees Slee 
ogre 004737 
rae pias 

7974 e474 tees 
rae Hee iahies 
rae Sie Re 
7979 ~O4eS04 000137 
er B4se10 oI 
7982 O4s816 13939 
7983 eSe4 765 
7984 04 112737 
7386 BySeuE 0 5597 
798 bysecs 535 
7988 O4eS60 104117 
FS owcsee o137 
ae ge Bie 
7992 042576 3765 
7393 Ruspos 12737 
73994 l2 012737 
7995 O4%e62e0 004737 
eae O4ebe4 104117 
73 G4¥2626 032737 
73 042634 801004 
8000 O4e636 104071 
8001 O42640 

800e O4e64O 000137 
8003 

8004 O42644 

8005 

8006 

8007 

8008 


044106 


100000 


040746 


MACY11 30A( 1052) 
T4O 


005314 


o0S404 


005410 
00S41e2 


005416 
ooS42e 


0S6560 
005314 


00S342 


72$: 


9$: 


733: 


11$: 


#<D.DSC!D.DRA!D.SPIN!D.ORDY!D.VV>,E.A0 


6. DOOR!D.BRHM!D.SSP>,E. Al 


;FIND_ATT 
:NO ATTN AFTER SEEK CMD 


;CERR AFTER SEEK CMD 


;EXPECTED MSG AD 
;EXPECTED Al 


,;EXPECTED MSG 


;MSG 10. FOR EXPECTED’ MS 
care MSG Ae 

POR EXPECTED MSG Be 
Mee 1D FOR EXPECTED MSG B3 


;CHECK MSGS AO, BO, Al, Bl 
:& MSGS CIFTED HERE’ 

?MSG AO ERROR AFTER SEEK CMD 
;MSH BO ERROR 

:MSG Al ERROR 

?MSG B1 ERROR 

;EXIT TEST 


;SETUP FOR PORT B 


;RELEASE PORT B 


;D0 SELDRV_ (STATUS) CMD & GET CONTR RDY 
;NO ROY AFTER SEL DRV CMD 


;SETUP FOR PORT A 


;00 SELDRV_ (STATUS) CMD & GET CONTR RDY 
;NO RKY AFTER SEL DRV CMD 


; SEE IF DRIVE AVAIL ON PORT A 
:PORT A NOT AVAIL AFTER PORT B RLS 


03-JAN-78 08:56 PAGE 152 
ALTERNATING SEEK INTERACTION TEST 
SR PC, FATT2 
ERROR 132 
BIT #CERR,HCS1 
BEQ 725 
ERROR 210 
MOV 
CLR E.80 
MOV #<D.SPOK!D.CART! 
MOV #1,£.B1 
CLR E.Ae 
MOV #2,£.B2 
MOV #3,£.83 
ISR PC, CHKMSG 
.WORD O'Of0 
ERROR 161 
ERROR i162 
ERROR 163 
ERROR 164 
IMP 118 
MOV SUNIT,RKCS2(RS) 
MOV #1, UNtTB 
ADD UNITB, RKCS2(RS) 
MOVB #’B,MSG19A 
ADD #RLS, RKCS2(RS) 
MOV #SELORV,HCS1 
JSR PC, DOCMD 
ERROR 11? 
MOV SUNIT,RKCS2(RS) 
MOV #0, UNITB 
ADD UNE TB, RKCS2(RS) 
MOVB #’A,MSG19A 
MOV #SELORV,HCS1 
JSR PC. DOCMD 
ERROR 11? 
BIT #D. DRA, HMR2 
BNE 73$ 
ERROR 71 
IMP 108 


SEQ 0152 
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SeSSa0000 
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a 


AAsg4g3 2082 Sag GRAISR OSES SOOTSS 
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; hig | 
He HERES A 
#IF THERE ISN’T 
ener 
goon SCOPE 
37 001176 CLR 
012737 OO00001 001174 MOV 
ee 001100 MOV 
Russ 001220 INC 
37 005434 001220 CMP 
0014 BEQ 
oll es 012472 JMP 
SEOP1: SCOPE 
ptt 001102 CLR 
37 001174 CLR 
37 O0le16 INC 
37 100000 0O01216 Bik 
SEOPCT: .WOF 
ee a 
09004 SENDCT MOORD 
oog3 SEOPCT 
oO44Ol p39 TYPE 
13746 1216 MOV 
104405 TYPOS 
O44 3006 TYPE 
137 oo4e S$GETYH2: MOV 
0014 BEQ 
ooooo0s RESET 
004710 SENDAD: JSR 
000240 NOP 
000240 NOP 
ss SDOAGN nee 
000137 MP 
010646 RTNAD: .WORD 
37 377 000 S$ENULL: .BYTE 
015 O4e41le O42116 SENDMG: .ASCIZ 
osoo40 OS1501 O201e3 


MACY11 SAC 1082) 


ND OF PASS ROUTINE 
-SBTTL END OF PASS ROUTINE 


at tt 2 a ooo. 
i RINCRENENT THE PASS 


JUMP TO ST 


g 
% 
R 
( 
1 
SDOAGN 
(PC)+, ,a(PC)+ 
DMG 
gence. -(SP) 
gute R 
DOAGN 
PC, (RO) 


a(PC)+ 
i. 


Iw 
~_-+4 


vta5 18, -enp passé’ #7 


O3-JAN-78 08:S6 PAGE 153 


NUMBER (S$PASS) 
NO sy @XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER) 
aay GO TO IT 


; INCR COUNT FOR # DRIVES CHECKED 
;ARE ALL DRIVES PRESENT TESTED? 


;BR_IF_YES 
;ELSE TEST NEXT DRIVE PRESENT 
33 ZERO THE TEST NUMBER 

THE OF ITERATIONS 


; ZERO NUMBER 
Baa THE PASS NUMBER 
;DON’T ALLOW A NEG. NUMBER 
; LOOP? 


;;YES 
;;RESTORE COUNTER 


i LSavE SPASS FO FORT 


MAL ASCII WITH SIGN 
NARAG TER 


; ; RETURN 
;NULL CHARACTER STRING 





SES 0153 


Lie 


CZR6GBO RK6b1l DU PORT LGC TST MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 154 SEQ 0154 
CZ2R6GB.P11 03-JAN-78 08:46 SUBROUTINES 
A .SB8TTL SUBROUTINES 
8055 ;SUBROUTINE TO CLEAR ALL FLAGS FROM DDUMP THRU UNITB 
61 . 
0430. 012700 o0s4 CLRFLG: MOV #ODUMP , RO 
Be5 3056 yt 701 177757 MOV #-17.,R1 
8064 36 020 1S: CLR (RO)+ 
8065 3040 005201 INC R1 
80 043042 001375 BNE 1$ 
067 043044 07 RTS PC 
, 
bobs :TYPE PROGRAM ID IF FTITLE=0 
8071 : 
8072 
8073 3046 005737 001340 TITLE: TST FTITLE 
B074 BO19 é 
8075 005237 001340 ITLE 
8076 104401 oS54566 YPE MSGI ;PROGRAM ID 
8077 .SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
80 O43064 005737 oo00042 TST ase ;;ARE WE RUNNING UNDER XxDP/ACT? 
80 0430 001012 BNE 64S :;BRANCH IF YES 
8080 043078 123/67 001230 oo0001 CMPB SENV, #1 > ARE WE RUNNING UNDER APT? 
1 1 14 BEQ 64S ?;BRANCH IF YES 
8082 043102 023727 001140 000176 CMP SWR, #SWREG : SOFTWARE SWITCH REG SELECTED? 
8083 3110 001005 BNE 655 : BRANCH IF_NO 
BoB4 3ll2 104406 GTSWR :i:GET SOFT-SWR SETTINGS 
3114 000403 BR 65S 
BOBG 043116 112737 000001 001134 bus: MOVB #1, SAUTOB ;;SET AUTO-MODE INDICATOR 
goss 043124 000207 1S: RTS PC 
8090 
8091 *ROUTINE TO INPUT DRIVE NOS. TYPED IN & SET 
8092 :DRIVS, DRIVO-DRIV7 REGISTERS APPROPRIATELY 
8033 ‘ONLY EVEN NUMBERS ALLOWED (0,2,4,6) 
8095 y 
8096 O43126 104411 GDRVS: RDLIN 
8097 i O12 MOV (SP)+,RO ;GET STARTING ADDR OF ASCII STRING 
38 1 12701 177774 MOV 8-4, Ri ;SET UP COUNT 
Be9 1 112002 1S: MOVB (RO}+.R2 :GET ASCII CHAR 
8100 043140 2702 177400 BIC a7 7400 R2 5 MASK HI BYTE 
81 Outs 1 03 O05H36 MOV #ORIVO,R3 :DRIVE FL DR 
B 150 0127 O60 MOV #60, R4 
8104 043154 oO20402 2s: CMP RY, Re ;WAS TYPED CHAR O THRU 6? 
810S 043156 001415 BEQ 3$ :BRANCH IF YES 
8106 043160 005723 TST (R3)+ :NO, INCREMENT DR FLAG ADDR 
8107 043166 005204 INC 4 
8108 164 ge04e7 000067 CMP RY, #67 
8109 043170 001371 BNE 2$ ;S$/B 0-6 OR TERMINATOR 
8110 043172 005702 TST Re : TERMINATOR=0 
8111 043174 0601025 BNE 4g 
8112 043176 Oe201e7 177774 CMP R1, #-4 


Mle 


CZR6GBO RKG11 DU PORT LGC TST MACYI1 30A(10S2) O3-JAN-78 08:56 PAGE 15S SEQ o1S5 
CZR6GB.P11 03-JAN-78 08:46 GET VALUE FOR SOFTWARE SWITCH REGISTER 
043202 001431 BEQ 6S ;DEFAULT ALL DRIVES 
043204 005037 oo0s46e 7S: CLR SIZFLG 5 BYPA ST st (SIZING) 
043210 000207 RTS PC FO TERMINATOR, EXIT 
Sele B64 000001 3S: BIT agITO,R4 ;SEE IF ODD # 
213 INC aR3 ;SET UP FLAG FOR THE DRIVE 
Bissee agg, cost Hin PRINS no ESP add hchaStve SF TESTED 
043630 p4e70e 77400 BIC #177400, Re :MA ; 
z 8 os4 chp s 4, Re jIS_IT A conMa’ ie 
pa3eue Bo87 il RS NO, 18 TT A Mette oR? 
1001 BNE 4§ tIF NOT, SOMETHING WRONG. 
04324 000756 BR 7§ :FOUND TERMINATOR, EXIT 
043250 104401 057036 4$: TYPE EM1 ;ONLY 0,2,4,6 ALLOWED. 
043254 000137 010054 IMP PRGSRT *START ALC OVER 
Sm y BcitS HOBEOTiRY * OUFF 
043264 000771 BR 4g :IF NORE, HAVE ERROR. 


Buzzes 905837 O0s4e2 6S: INC SIZFLG ;pO TEST 1 (SIZING) 


! ROUTINE TO INPUT RKBAS OR DEFAULT. 


3274 104412 GBA: RDOCT 

3676 012600 nov (SP)+,RO ;GET LOW ORDER FROM STACK 
43308 607403 Beg b ;BRANCH IF DEFAULT. 

i 001264 MOV , SBASE 

pasate nee 177440 001264 1S Rov Ret SBASE DEFAULT VALUE 

33 pbgoa> : RTS PC ‘ ; 

ROUTINE TO INPUT RKVEC OR DEFAULT 

3322 10441 GINT: RDOCT 
fee 2600 Mov (SP)+,RO ;GET LOW ORDER FROM STACK 
043330 001405 BEQ 1$ ;BRANCH IF DEFAULT 
043332 010037 001314 MOV RO, RKVEC 
0433 004737 043354 2s: JSR PC’SETINT 
busa44 Wee 000210 001314 1S RoW S10 RKVEC DEFAULT VALUE 
043352 000771 ° BR es.’ : 


ROUTINE TO SETUP INTERRUPT VECTOR & PRIORITY 


ee ee ee me eee ee ee ee ee ee ee ee ee ee ee ee ee be bee ee ee ee 


DWDDODO DOOD DODD DDDODNONNDDDODDDDHDDDDHHMHWODDODOD ONO DODMDOMWMOMMOMOWMOM 
DUE EO ODO VEU EO Ow GI LUV ODD OL OM ODE VOLO Oe NUT ED 


CZR6GBO RK611 DU PORT.LGC TST MACY11 30A Nile 
CZR6GB. - JAN- : (1052) 03-JAN-78 08:56 PAGE 
_ Pil  03-JAN-78 08:46 GET VALUE FOR SOFTWARE SHETCH REGISTER S50 Gi1S 
170 043354 013700 001314 SETINT: 
817 360 O1 0066 : MOV RKVEC, RO 
MOV SINT 
8172 43304 019710 B15710 OBl sie MOV gree” Bho fo RRVECS2 
g178 RTS PC 
etre 
; THIS ROUTI 
site s TNS QUTINE SETS COT IN_RKCS1 IF DRIVE UNDER TEST IS AN RKO7. 
8179 043372 ? : 
8180 O43400 53797 001170 005314 bocnp: BIS STHPY CSI ;ADD CDT IF RKO7 
cig? Bier Glare Biiut GOe0e2 = ay atypmpyi (R=? 100 comma 
BiBe O4s4L4 Oona? O4S4e6 JSR PC, FRDY ;FIND CONTR READY 
8184 O4342e 062716 o00002 ie ;SET HERE IF NOT ROY 
8185 043426 000207 ADD se, (SP) ;ELSE SKIP OVER ERROR 
187 ; 
;THIS R 
5188 is 13 BOUTING 1S SIMILAR TO THE ABOVE BUT IS USED FOR DATA TRANSFERS 
8190 043430 i 
Big: Suause Graseg PORATG Bonet DATCMD: BIS STMPY, HCS1 ;ADD CDT IF RKO7 
Sige O4s444 019737 OOI412 OOS3be Moy He BAnatGengs? +00 CHD 
B133 Ousise 004737 O4SHbE JSR PC, FRDY ;FIND CONTR RDY 
8135 043460 062716 000002 te . 
Biss 64 000207 RTS ’ 
5138 : 
’ 
;ROUTINE T 
a Re ica oktettt tenon cooitioo 
Bens SRETURN 22 SPYRDY PRESENT. (SKIP OVER ERROR), 
BOO ce !STATUS IS OBTAINED BEFORE THE RE URN FOR EITHER CASE 
Be0s Ou34G6 032765 00200 o00000 froy: BIT #RDY, RKCS1 (RS) 
eso, Gisers Bopgy7 005952 Bee Tene 
8203 43504 00473? 043622 ocr PC HOLD 
8210 043610 Go4757 O¥bdE4 18 Be HO a ; STORE ALL RK11 REGS_IN HOLDING REGS. 
Bel2 O4 = P NO 
AEE ee 
ete Bisess bacons owee" JSR PC, CKCERR ;CHECK FOR SPECIAL CERR 
821 ; 
aci2 !ROUTINE TO FIND CONTROLLER READY AND STORE DRIVE REGS ONLY 
8219 04 i m 
8220 ae 932765 oo0200 oo0000 FRDYI1: BiT #RDY , RKCS1(RS) 
21 043549 005337 o0S352 nn 
8228 043550 001371 pee ERD 
Bees OW3s52 016537 000094 O0534e MOV —-RKMRE(RS) , HNRE 
000036 o05344 MOV RKMR3(RS) ; HMR3 


B13 


CZR6GBO RKG11 DU PORT LGC TST MACY1L1 30A(10S2) 03-JAN-78 08:56 PA ? 
CZR6GB.P11 03-JAN-78 08:46 GET VALUE FOR SOFTWARE SWITCH REcteTER 
g2es 043566 004737 o4S5064 JSR PC, CKCERR 5 CHECK FOR SPECIAL CERR CONDITIONS 
82 74 1S: ADD #2, (SP) ? SKIP MF R ERR 
8228 3600 i653 Bo034 005342 MOV RKMR2 (RS), HMR : wrschoaies 
«Bees 3608 016837 9000.36 005344 MOV RKMR3(RS),HMRS 
| 63 os 3e14 2 JSR PC, CKCERR ;CHECK FOR SPECIAL CERR CONDITIONS 
e538 | 
B34 ; STORE ALL RK611 REGISTERS IN HOLDING REGS 
8236 : 
823 16537 000000 005314 HOLD: MOV CS1(RS),HC 
8238 3630 bieess 900919 005316 MOV Ries (Re) * Hees 
8639 3636 016537 905320 MOV RKWC CRS), AWC 
0 0436 16 005322 MOV RKBA(RS),HBA 
B54 3eE5 1b3: l2 Bpesse NOV RKDet } » tiRe 
B545 16 14 330 MOV BPR: HER 
Be44 
Bev oe 166 16 332 MOV RKASOF (RS) , HASOF 
370 16 334 MOV RKDC(RS) HOC 
0 MOV RKMR1 (RS), HMRI 
3548 i 2 345 eM RRM tk RS 
Beu3 043732 016537 o000 005346 MOV RKECPS(RS) ,HPOS 
3740 016537 poop as 0053s0 v 
| aa O43 i Hoy BKECPT CRS), HPRY 
| BBs 
ROUTINE TO CHECK FOR CORRECT ATTN 
8255 ‘RETURN IF ATTN NOT Bee ERE ERROR CONDITION) 
6387 :RETURN +2 IF ATTN PRESENT (SKIP OVER ERROR) 
58 043750 - : 
Bese 043750 819708 oo1gee +STATN: MoV Suni Rd ;SAV RY 
BSeq ba37e 136437 005304 005333 BT8 SOE NPRG), HASOF#1° — 
Bebe 043720 GO1908 BEQ , ; BRANCH IF ATTN NOT PRESENT 
Bebe 43778 e716 ooo0002 aD ae, (SP) tINCR RET ADDR TO JUMP OVER ERROR. 
8266 O44002 : ; 
8267 O44O004 eanietitg -” RTS het apy sta apee: 
8590 : 
‘ROUTINE TO FIND ATTN WITHIN T Mm T 
6571 ROUTE ae ‘Ine AT WITH Int Ae IMES GREATER THAN 1 SEC 
Be7e *RETURN IF NO ATTN (ERROR OMDITIOND 
8673 } RETURN +2 IF ATTN FOUND 
Bez :STATUS IS OBTAINED BEFORE THE RETURN FOR EITHER CASE 
8276 ‘ 
Be 006 o10446 : - : 
g27e Bai 812737 177777 oosase S$" fey pte 
Vv yR4 
8280 O44022 063704 O05464 ADD UNITB; RY ;ADD 1 IF ON PORT B 
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PAGE 158 
ALUE FOR SOFTWARE SWITCH REGISTER 


1S: BITB QTTNCRY) , RKASOF+1 (RS) ;FIND CORRECT ATTN 
Bee EMPL 
BNE 1 
DEC TEMP2 
BNE 3s 
CLR - KMR1 (RS) ;SELECT WORD 0 
JSR PC, GSTAT :GET LATEST STATUS 
MOV (SP)+,R4 *RESTOR R4 
RTS PC 
2s: CLR 1(RS) 
JSR PC GSTAT GET Bi US AFTER ATTN SEEN 
MOV (SP)+,R4 REST 
2, (SP) :SKIP OVER ERROR 
RTS P 
pe INE TO FIND ATTN WITHIN 1 SEC 
NTER WITH COUNT IN TEMP1 
IF NO ATTN (ERROR) 


FATT2: MOV R4,-(SP) ;SAV RY 
=e AOD unite: F 1 IF_ON PORT B 
Bry TINA), rxasor+i cre) ;FIND CORRECT ATTN 
E TEMP 
CLR RKMR1 (RS) ;SELECT WORD O 
JSR PC. GSTAT :GET LATEST STATUS. 
MOV (SP)+,R4 :RESTOR RY 
RT PC 
1S: CL RKMRL (RS) 
JSR PC, GSTAT 
MOV (SP)4+,R4 ;RESTOR R 
He, (SP) : SKIP OVER ERROR 
R P 
THIS ROUTINE CHECK IVE AVAILABLE’ IN MSG AO AFTER A SELECT COMMAND 
: 3 NO oe 4 Ss "BRS FIL AF ORN 
: IF SET, IT’ DOES A RETURN+ , 
bRAV: R P »GSTA 
T #0: DRA, HMR2 i SEE BF ADR IVE _AV AVAILABLE SET 
Q 1 NO & 
ADD #2, (SP) ELSE RETURNGS 
1S: RTS 


i THIS ROUTINE LOOKS FOR ATTN 
; RETURN+2 IF FOUND BEFORE COUNT=0 
; RETURN IF COUNT=0 (ERROR CONDITION) 





CZR6GBO RK611 OU PORT LGC TST MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 159 SEQ 0159 
CZ2R6GB.P11 O03-JAN-78 08:46 GET VALUE FOR SOFTWARE SWITCH REGISTER 


Bago 68 S 005304 000017 FATT3: Bre ATTN(RY),RKASOF+1(RS) ;TEST FOR ATTN 


pee 
oes 


4 37 001366 S COUNT ;SEE_ IF TIME UP 
8340 30 004807 one on ;BR IF NO 
ER 4 16 000002 1$: 8, (SP) ; JUMP OVER ERROR 
8343 O44e40 000207 RTS PC 


F ENTER wy A COUNT IN TEMP1 
;THE DELAY IS APPROX 17 US/ITERATION + 12 US TO EXIT 


;WHEN COUNT IS 0. BASED ON AN 11/705 


pure pre mse pee 58 tS 


ivan ae 


4 
4 005337 005352 DEC TEMP1 °6.8 US 
o44e54 90077e BR DLY :2.5 US 
4 20 1S: RTS PC ?3.8 US 
8356 :THIS ROUTINE TYPES BYPASSED DRIVE®. ENTER WITH DRIVE# IN RO 
guy pouso1 056437 BYP: TYPE MSG14 ;BYPA “BF VE 
4264 O10046 MOV RO, -(SP) 53 OR TYPEOUT 
OuN266 104403 TYPOS G07 YPE~-OCTAL ASCI 
ah 14 B00 BYTE i + OUPBRESS- CLAS ENG ZEROS 
044272 000207 RTS PC 


i THIS ROUTINE READS ALL MSG A & B WORDS & CHECKS THEM AS REQ’D. 


044274 O17627 QOO00 001460 buxmse: MOV ht CHKFLG ast S TO T ie 
ioe Beezie paouoe ie nile RP RE TGR AbDR TS, TeT ERROR. 


l22e 404 8 3 SET UNIT & 
4 7 333 404 as ° ;ADD i IF ON PORT B 
4 7 leee 410 BIS sini 


Bie fe | ETE 


Oud 356 053737 o01ee2 gos4e0 BIS SUNIT,E.A 8 
044372 923335 p03 75e Bpe4 4 Be UNtTe. E: a3 ;SET CDT IF RKO7 
O44400 013746 005352 MOV TEMP1,-(SP) ;SAVE TEMP1 
Bsce aus pA ae 35 oozed —— Be Ee « Pan GET PARITY FOR MSG AD 
a 44] 903535 Bae5e2 oo0s4o4 MOV Peasire E.AO , 
389 O44424 013737 OOS410 005352 MOV E.A1, TEMP 
8330 ous 004737 7 ou72e4 JSR PC, SBPAR ;GET PARITY FOR MSG Al 
91 44 S352 005410 MOV TEMP1,E.AL 


eer! tic SERSREARRR So aaag cana 
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013737 
te 7 
137. 


niet 
13737 


37 
bourse 
13737 

37 

7. 
013737 


ele 
737 
13737 


13737 


012737 


005414 
7 
4 
Bu7ee4 
00S3Se2 
Or a4S 
ge 
005352 
005416 
047224 
005352 
422 
7ee4 
0053S2 
005352 
001176 


005364 
044620 


001000 
ooo00e 
005366 
O446S6 


001000 
ooo002 
005370 
044714 


001000 
ooo00e 
005372 
044752 


MACY11 30A(1052) 


o00S3Se 
005414 
00S3S2 
o00S406 
00S35e2 
o00S412 
00S3S2 
005416 
00S3S2 
oos4ee 


001172 
oos404 
001176 
134312 


005406 
001176 


1342S4 


005410 
001176 


134216 


oo0s41e 
001176 


1S: 
es: 


4S: 


SS: 


7$: 


E13 


O3-JAN-78 08:56 PAGE 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


MOV 
JSR 
MOV 


MOV 
J 


E.A2, TEMP 1 


PC AR 
Pease one 
.BO, TEMP1 
Ee CAPR 
TEMP1,£.B0 
£.81, TEMP1 
¢, SBPAR 
TEMP1,E.81 
a2 TEMP1 
TEMP1,E.B2 
.83, TEMP 1 


, ta 


~ = 0M 
MoO 


> Re 
& 


3ge0 
— 
t 
“_~ 
w 
Uv 
a 


5 
Ww 
= 
D 
5 


#2, (SP) 
H.B0,£.80 
S$ 

84S, SESCAPE 
(SP5,-(SP) 
PC 

#SW9, ISWR 
OS 

#2, (SP) 
H.A1,E.Al 
8S 

#73, SESCAPE 
(SP5,-(SP) 
PC 

#SW9, ISWR 
#2, (SP) 
H.81,£.B1 
#10%, SESCAPE 


160 

;GET PARITY FOR MSG Ae 
;GET PARITY FOR MSG BO 
;GET PARITY FOR MSG B1 
;GET PARITY FOR MSG Be 


;GET PARITY FOR MSG B3 
;RESTORE TEMP1 
;SAVE ESCAPE 


; TEST MSG AO 
jELSE SETUP ESCAPE 

:& RETURN TO MAINLINE ERROR 
sRET HERE FROM MAINLINE ERROR 
reo T L ERROR 


T ADOR TO NEXT ERROR 


or 
~— 
5 
a 
; 


TURN HERE FROM MAINLINE ERROR 
BR IF LOOP ON ERROR 
BUMP RET ADDR TO NEXT ERROR 


; TEST MSG Al 
!BR IF OK 


; TEST MSG B1 
!BR IF OK 


SEQ 0160 


8449 
0 


aa 
ee 


ssecensnaraaue 


PECELELELPEPE PEPE E ELLE 
BSBLERLG— Ove Nor Lun OwweD 


es 
es 


CZR6GBO RK611 OU PORT LGC TST 
CZR6GB.P11 03-JAN-78 O8: 


46 


011646 
000207 


104127 
000207 


010000 


001000 


MACY11 30A( 1052) 
GET 


134160 


001460 


001460 


001460 


001176 


001176 


005314 


005314 


005316 


005316 


F13 


O3-JAN-78 08:56 PAGE 161 
VALUE FOR SOFTWARE SWITCH REGISTER 


SEQ 0161 


MOV 

RTS 

10$: BIT 
BNE 

11$ ADD 
12S: BIT 
Fee 

SR 

13S: BIT 
BEG 

JSR 

14S BIT 
BEQ 

JSR 

JSR 

15$: MOV 
RTS 

20$: MOV 
MOV 

JMP 


(SP),-(SP) 
PC 


sSW3, ISWR 
OSs 
#e, (SP) 
#T.A2, CHKFLG 
C,RCYLD 
Oc atataiiee 
PC,RCYLA 
#T.B3,CHKFLG 
1S$ 


PC,RSEC 
PC, RHEAD 


pre, Sears 


#STACK, SP 
STHPS ,SESCAPE 
JSLPE 


BR IE NO Ae? 
UT_INFO cyyOrr, DO NOT CHECK 


pe IF NO 
;PUT INFO IN CYLADD, DO NOT CHECK 


; TEST MSG B3? 


;PUT INFO IN SECTOR, DO NOT CHECK 
;PUT INFO IN HEADA, "DO NOT CHECK 


; RESTORE 


;RESET STACK PTR 
RESTORE 


THIS ROUTINE CHECKS FOR CERTAIN ERROR CONDITIONS ONLY 
:I.£.: IF NED, CTO OR MOS SET MESSAGE A & B ARE INVALID 


&xceRR: TST 
BNE 
BIT 
BNE 
RTS 
1S: BIT 
BEQ 
ERROR 
RTS 
2S: BIT 
BEQ 
ERROR 
3S: BIT 
BEQ 
ERROR 
4S: RTS 


BYPCERR 
#CERR,HCS1 
1$ 

PC 
#CTO,HCS1 
2 


125 
PC 


#NED,HCS2 
3$ 

126 
#MDS,HCSe 
4$ 

127 

PC 


;BR IF CERR 


;BR IF NOT CTO 
:CTO ERROR, MSG A & B INVALID 


;BR_ IF NOT NED 
:NED ERROR, MSG A & B INVALID 


;MDS ERROR, MSG A & B INVALID 


THI ROUTINE DOES THE SELECT DRIVE COMMAND TO GET STATUS 


iT HEN WAITS FO 


CONTROLLER READY 


F RDY NOT RECEIVED BY THE TIMEOUT, AN ERROR IS FLAGGED 





G13 
56 


CZR6GBO RKG11 DU PORT LGC TST MACY11 30A(10S2) 03-7AQN-78 08: PAGE 162 
CZR6GB.P11 03-JAN-78 08:46 GET VALUE FOR SOFTWARE SWITCH REGISTER = Ge 
8S0S 045146 013746 g0s3s2 GSTAT: MOV TEMP1,-(SP) ;SAVE TEMP1 
seas . 
S209 Buetes Bescee BodGes BBao10 oy) BNYFBRKESS{ Re} EERE ENT OBA’ Bor o 
166 2737 909001 005314 MOV BSELDRV HCS1 
1 4. Tima Eon GygPocr® OO eo eRee tay ERD OF SELECT DRIVE CHD 
Boil 12637 005352 oy (SP3+, TEMP :RESTOR TEMP1. 
13 ; 
e513 'THIS ROUTINE GETS STATUS OF ALL DRIVE REGISTERS (MSG AD-A3, BO-B3) 
8515 ;8 ALL CONTROLLER REGISTERS. 
7 TATI: - ; 
Beta Guests Bkasss Boszss GSTATI: HOY = TEMEA)S(SP) RAYE TEMEA or REG 
8519 gueeeo O1e765 490009 p00 MOV actLR, RKC 1(RS) ;CLEAR CONTR 
1 i2 000010 MOV T?RKCS2(RS) ;CURRENT DRIVE # 
B50 34 464 ADD UNITB RKCSE(RS) 5 ADD i PORT B 
7 ERROR 11? *RDY NOT SET BY END OF SELECT DRV CMD 
8525 biarae oo0s342 005400 MOV HMR2,H.A3 >STORE MSG AZ 
eee) 045264 013737 OOS344 o0s402 MOV HMR3, 4.83 :STORE MSG B3 
1 190099 Mov aCCLR, RKCS1(RS) 
6550 B62 4 weatep MOD Sita’ BKeeStReD ;ADD_1 IF ON PORT B 
1 14 O1 2 go00de 000026 MOV 82, REAR (RS) :SELECT WORD 2 
ea BYES APU coeue oosars ERIOR 1? ao «ERY ,MOTSET.BY ENO OF SELECT ORV cD 
eee 045336 013737 poe sug 005376 MOV HMR3,H.Be :STORE MSG Be 
v #CCLR, RKCS1(RS) 
ee Heres 4gp0n2 poan0e roy SbF RAGS) 
4 000010 ADD UNITB;RKCS2(RS) ;ADD 1 IF ON PORT B 
gey0 7 4 a ey : Bs omen ve 
gee =uoe a3 ca . - ERROR 11? ap ; BOY NOT SET BY END OF SELECT DRV CMD 
Bou 41 1 poesua pgeace MOV HNeS! HB + STORE MSG Bl 
8546 O4S416 O1 100000 op0000 MOV. #CCLR, RKCS1(RS) 
8547 1 222 900019 MOV © SUNTT, RKCSe ) 
Boug 4 2 464 1 ADD UNT TRA RKCSECR ) ;ADD 1 IF ON PORT B 
. 8550 04117 ERROR i? :RDY NOT SET BY END OF SEL DRY CMD 
e551 446 biarae 005342 005364 MOV HMR2, H. AO ‘STORE MSG AO 
Bebe 454 013737 005344 005366 MOV -HMR3,H. BO *STORE MSG BO 
sees Qusibe 012637 005352 Hoy (gP)+, TEMP ;RESTORE TEMP 
Bees O4S470 012737 O00001 005314 GSTAT2: MOV #SELORV,HCS1 
gee Guesos Graver BOLLS Gosads Roy Aca aces cms) f0B7 SPards ™” 
8560 Bueers 613785 BOTs 0 poSaee MOV Te teMPl ‘ 


CZR6GBO RK611 DU PORT LGC TST MACY11 30A(10S52) O3-JAN-78 08:56 PAGE 163 SEQ 0163 


CZR6GB.P11 03-JAN-78 08:46 GET VALUE FOR SOFTWARE SWITCH REGISTER 
- -gS61 O4SS20 004737 043534 JSR a FRDY1 ;FIND CONTR RDY_ 8 STORE DRIVE REGS ONLY 
See3 ONeeee Oe716 00002 ADD (SP) inet ties fe fer Or 
pa BESS ect m & 
Bec? I THIS ROUTINE DOES f& SUBSYSTEM CLEAR & WAITS FOR CONTROLLER READ 
Bets The "Rut Ie FAR EEYE cB BYR TOE IME WEERE HOR BN FESO AS EROR ERE an 
8571 RETURN 4 F ROERR "CLEAR 
Bes OusS34 012765 00040 000010 SuscLR: Mov SSCLR RKCS2(RS) ;SUBSYS CLEAR 
8574 5542 013737 991400 005352 MOV eteRoY 
8252 Bueeeq 1 2RROR shay? Nor SET BY END OF SCLR 
8577 O45556 013765 001222 O00010 MOV Sept ; CURREN T ORI VES, ‘ 
gr izes? Ege GPR Rha RESSECR®? HEPAT oR 
146 ISR PC,GSTA :GET STATUS 
8581 37 100000 005314 BIT #CERR,HCS1 :CHECK FOR CONT ERROR 
Be fen BL Ree 
24 5614 062716 ooo0002 1S: ADD #2, (SP) ;SKIP OVER ERROR 
g585 045620 RTS PC 


rat 
BN 


READ THE SECTOR COUNT IN RKMR3, RIGHT JUSTIFY IT & STORE IT IN *SECTOR’ 


8590 O4S622 012765 O00003 O00026 ADSEC: MOV 83, RKMR1 (RS) ;WORD 3 
B53) ou 737 S146 JSR PC'GSTA 
as 13737 344 001374 MOV HMR3 SECTOR 
8593 O4564e 2737 177017 001374 BIC “ord SECT», SECTOR 
essay 9062 001374 ASR CTOR ;RIGHT JUSTIFY 
8595 4 7 001374 ASR CTOR : SECTOR 
8536 5660 006237 001374 ASR SECTOR : INFO 
85 O4S664 006237 001374 ASR SECTOR 
8598 045670 000207 RTS PC 
!READ THE CYL DIFF/OFFSET IN RKMR2, RIGHT JUSTIFY IT & STORE IT IN ‘CYLDIF’ 

8601 

7 et O02 O00026 ADCYLD: MOV , RKMR1 CRS) ;WORD 2 
BERS 7 ae ise JSR é GSTA 
8604 O45 013737 005342 001356 MOV HMR2. CYLDIF 
8605 57 37 12774 001356 BIC mMaSK] .CYLDIF 
86 7 O0be 7 1356 ASR CYLDIF ;RIGHT JUSTIFY 
860 7 7 1 ASR CYLDIF :CYL DIFF/OFFSET 
8608 0457 006237 001356 ASR CYLOIF : INFO 
86039 045734 37 001356 ASR CYLDIF 
Bb10 ty 240 37 7 001356 012772 CHP CYLOIF, , MASK CHK TO, E IF RET IN COMPL. FORM 

1 7 5037 001356 R YLDIF :CLR IF YES 

BEIs QNe7e4 = pooeas is: re = Be 
Beis 
8616 :READ THE CYL ADDR IN RKMR3, RIGHT JUSTIFY IT & STORE IT IN ‘*CYLADD’ 


CZR6GB0 RK611 
CZR6GB.P11 

8617 

8618 O4S 012765 
86139 045764 737 
8620 13737 
Bese 776 ELA 
862 6010 4 
BESS 6014 4 
Bec ical Bases 
oe 

8630 13737 
8631 6034 3737 
Bows 6042 37 
Ba RSs fey 
Se Bins Bee 
8637 046070 1002 
8638 04607e ? 
8639 046076 7 
8640 

8641 

Be43 046100 0137 
8644 Rerive 043737 
Sh 
864 B4e134 006237 
8648 046130 0062 
8649 046134 000207 
8650 

8651 

& 

86 046136 013737 
8654 O46144 0427 
8655 046152 00623 
86 046156 006237 
8657 O4616e 006237 
8658 O46166 006237 
8659 046172 000207 
8660 

8661 

8662 

8663 046174 013737 
8664 O4%6e02 042737 
8665 O46210 006237 
8665 O46e14 000337 
8667 O4%6e20 000207 
8668 

86693 

8670 

8671 


DU PORT LGC TST 
03-JAN-78 08:46 


PEI 
ooosLo 


I13 


MACY 11 ey ee O03-JAN-78 08:56 PAGE 16 


000026 


001360 
001360 


012772 


001374 
001374 


4 
ALUE FOR SOFTWARE SWITCH REGISTER 


RDCYLA: MOV #2, RKMR1(RS) ;WORD 2 
ISR PC’ GSTAT 
MOV 3, CYLADD 
BIC maski. CYLADD 
ASR CYLADD ;RIGHT JUSTIFY 
ASR CYL@DD :CYL ADDR 
ASR €YLADD : INFO 
ASR CYLADD 
RTS PC 


SEQ 0164 


READ THE CYL DIFF/OFFSET IN H.A2, RIGHT JUSTIFY IT & STORE IT IN *CYLDIF’ 


AcyLD: MOV H.A2, CYLDIF 
BIC MASKI.CYLDIF ;CLEAR UNWANTED INFO 
CYLDIF ;RIGHT JUSTIFY 


ASR CYLDIF 
cH CYLDIF , MASK ; CHK TO SEE IF RET IN COMPL. FORM 
CLR CYLDIF :ELSE CLEAR 

1S: RTS PC 


:READ THE CYL ADDR IN H.B2, RIGHT JUSTIFY IT & STORE IT IN ‘CYLADD’ 


RCYLA: MOV H.B2,CYLADD 
BIC mask! CYLADD ;CLEAR UNWANTED INFO 


ASR apd sRIGHT JUSTIFY 
ASR CYLADD 

ASR CYLADD 

ASR CYLADD 

RTS PC 


i READ THE SECTOR COUNT IN H.B3, RIGHT JUSTIFY IT & STORE IT IN ’SECTOR’ 


asec: MOV H.B3, SECTOR 


BIC #4C<M.SECT>,SECTOR ;CLEAR UNWANTED INFO 
ASR SECTOR ;RIGHT JUSTIFY 


READ THE HEAD ADDR IN H.B3, RIGHT IT & STORE IT IN ’HEADA’ 


RHEAD: MOV H.B3,HEADA 
BIC ##C<A.HEAD>,HEADA ;CLEAR UNWANTED INFO 
ASR HEADA ;RIGHT JUSTIFY IT 
SWAB HEADA 
RTS PC 


;ROUTINE TO FIND HEADS HOME IN RKMR2 WORD 1 BEFORE SPECIFIED DELAY 
;ENTER WITH TIME IN SECONDS IN TEMPe 

;RETURN IF NOT FOUND 

;RETURN+2 IF FOUND - SKIP OVER ERROR 


CZR&6GBO RK611 DU PORT LGC TST 
CZR6GB.P11 03-JAN-78 08:46 


8631 
8692 


Mtatatatatatcy 
BBOVRR LS 


@ 
N 


bb 


NNNNNNNNNANNNN 
ye heheg 
Wl OWONOW SWE 


NIN 


046222 
046230 


012737 


oo 
—e 
fr 
N 
io 


177777 
000001 
Brake 
004 
00S3S2 
005354 


ooo0de 


MACY11 30A(10S2) 
GET 


00S352 
000026 


oos34e 


00S3S2 
oo000e& 


00S342 


001424 


001430 


O3-JAN-78 08:56 _ PAGE 165 
VALUE FOR SOFTWARE SWITCH REGISTER 


FHDOHM: MOV #-1, TEMP1 sALL 1’°S 
MOV #1,RKMRI CRS) :WORD 1 
1S: JSR PC’ GSTAT 
BIT #0: HDHM , HMR 
BNE 2s 
DEC TEMF 1 
BNE 18 
DEC EMP2 
BNE FHDHM 
RTS PC 
2s: ADD 82, (SP) ;SKIP OVER ERROR 
RTS PC 
ROUTINE TO, FI FI hone HEADS IN RKMR2 WORD 1 BEFORE THE TIMEOUT 
:RETURN+2 IF FOUND. SKIP OVER ERROR 
FLOAD: MoV #250. TEMP1 
MOV RiMRG CRS) ;WORD 1 
1S: JSR Be’ STAT 
BIT #0 LOAD, HMR2 
BNE 2s 
DEC TEMP1 
BNE 1$ 
RTS PC 
2S: ADD #2, (SP) ;SKIP OVER ERROR 
RTS PC 


FILL HEADER TABLE WITH 66 WORDS OF VALID HEADERS 
Eth tb cy 8 A. *CALADD’ 


;ENTER 


WITH HEAD 
:ENTER WITH FORMA 


FHDTAB: MOV 
MOV 


1S: MOV 


# IN *HEAD’ 
T *FORMAT’ 

RO,-(SP) ; SAV RO 

Ri’-(S5P) ; SAV Ri 

#HOTAB, RO HEADER WORD TABLE ADDR 

Ri SECTOR COUNTER 

HEAD, HD1 

HD 1 

HD1 

Bt 

HDL ;SETUP HEAD # FOR WORD 2 OF HEADER 
FO MAT, FMT 

FMT1 ;SETUP FORMAT FOR WORD 2 OF HEADER 
CALADD, (RO)+ ;HEADER WORD 1-CYL_ADDR 

R1, (ROS tHEADER WORD 2-SECTOR NO 

Nol: (RO) : -HEAD NO 

FMT1, (RO) : -FORMAT 


SEQ 0165S 


CZR6GBO_ RK611 OU PORT_LGC TST MACY11 30A(10S52) O3-JAN-78 08:56 PAGE 166 SEQ 0166 
CZR6GB.Pi1 03-JAN-78 08:46 GET VALUE FOR SOFTWARE SWITCH REGISTER 


s725 O46444 004737 O46S24 JSR PC,SECFLG 


CZR6GBO0 RK611 DU PORT LGC TST 
CZ2R6GB.P11 


87 


O03-JAN-78 08:46 


ae Ue ee 


g¢373 3 poe3e5 
013720 005354 


Besie? 00026 
001344 
012601 


L13 


MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 1 
GET V 


00S3S2 
00S3S4 
0053S4 


167 
ALUE FOR SOFTWARE SWITCH REGISTER 


MOV CALAD 
MOV RO) irene. 
BIC 
BIC CRO) See tENeL 
BIS TEMP1; 2 
MOV TEMF2, CROs ;HEADER WORD 3-HEADER CHECK 
INC R1 aa CTR 
R1, #22. ‘ab 2 nQeCTORS DONE? (66 WORDS) 
BNE 1s’ 
MOV (SP)+,R1 RESTOR R1 
MOV (5P)+)RO :RESTOR RO 
RTS PC 


i THIS ROUTINE GETS INFORMATION FROM Non BAD SECTOR TABLE FILLED BY A PREVIOUS 
; TEST & SETS BITS 14 & 15 APPROPRIATLY 


SEG 0167 


* 


CZR6GBO0 RK611 DU PORT LGC TST 
CZR6GB.P11 03-JAN-78 08:46 


8745 O4%6S2e4 010246 
S26 


SSO Ol 
8754 O46SS4 0047: 
Be S 560 052710 
8757 S64 26) 
are 6566 020 
e789 
8760 046570 012602 
8761 046572 000207 
876e 
8763 
8764 
8765 
87’ 
876 
B769 046574 010346 
gor1 576 021227 
e772 6602 001002 
877 6604 012603 
8774 046606 000207 
77 
or bite fee 
87 e 0007 
8780 we 
B7ee Biers Bogc03 
878. 66. 010 
8784 tt tae ose203 
8785 
8 87 O466 001401 


30 062716 
6731 046650 000207 
8793 
8794 

795 

7396 
8797 O466S2 010046 
8798 O46 010146 


8800 O4%666e 062737 


001426 


177777 


001362 


oooo0e2 


001420 


ooo004 


O4S62e 
000001 


M13 


MACY11 et ak O3-JAN-78 08:56 


001374 


PAGE 168 
VALUE FOR SOFTWARE SWITCH REGISTER 
SECFLG: MOV R2, -(SP) ;SAVE Re 
TST FORMAT 
;BR IF 20 SECTOR FORMAT 


;NOTE: BNEY 22 ‘ T RFORMED’ 
: “MOV SEeeH8. res 


JSR HARDWARE DETECTED FLAG 
BIS eotris. eR0) ? RETURN HERE IF GOOD SECTOR 
MOV #BSE22S+8.,R2 ;ELSE RETURN HERE 

JSR PC, FLGTST ‘GET SOFTWARE DETECTED FLAG 
BIS eBtTi4, (ROD :RETURN HERE IF GOOD SECTOR 
MOV (SP)+,R2 ;ELSE RETURN HERE 

RTS PC 

1S: MOV (SP)+,R2 ;RESTORE R2 
RTS PC 


i THIS ROUTINE DOES THE ACTUAL SCANNING OF THE BAD BEKTOR TABLES 
SENTER WITH THE ADDRESS OF TABLE (BSE22H, BSE22S, ETC.) IN TEMP1 
;RETURN IF_NO COMP: 

;RETURN+4 IF COMPARE 


ELGTST: Mov R3,-(SP) ;SAVE R3 
1S: CMP (Re), #1 ;SEE_IF ALL 1’S 
BNE 23 ?BR IF NO 
MOV (SP)+,R3 :RESTORE R3 
RTS PC 
2s: MP (R2)+, CALADD ;SEE IF=CYL # & ADR PTR TO TRK/SECTOR WORD 
ADD #2,R2 ;GO TO NEXT CYL WORD IN TABLE 
BR 1§ 
3S: HOV, HEAD, R3 ;GET HEAD # FROM FHDTAB ROUTINE 
BIS Ri R3 ;ADD SECTOR # FROM FHDTAB ROUTINE 
CMP (R2)+,R3 ; SEE IF SECTOR” HEAD COMPARE 
sal ver & INR PT PTR TO NEXT CYL WORD 
ee ig BR Se TRY NEXT CYL 
4S: MOV (SP)+,R3 ;RESTORE R3 
80D #4, (SP) ‘INCREMENT RET ADDR 
R Pc’ 
THIS ROUTINE SORTS THE RHTAB_ TABL LE FROM WHATEVER SECTOR IT BEGINS 
!WITH AND RE-WRITES THE INFO IN SRTTAB TABLE TO BEGIN WITH SECTOR O 
Sort: MoV RO,-(SP ;SAVE RO 
MOV R1,-(SP :SAVE R1 


) 
) 
JSR PC; RDSEC 
OR 


ADD #1) SECT 


SEQ 0168 





span B3-JAN-78 68: 46 


SEE 


eee aaa 


NOU CWE 


Rees 
re 
~ 


® 
oun 


047002 


047004 
047012 


047014 
047020 
047024 


047026 
70 
70. 


047040 
047042 


ae, 


004737 
012700 


010446 
032737 
001014 
012704 
004737 
000407 
012704 
004737 
000402 


012604 
000207 


046760 


000204 
001374 
001374 
001666 
001666 
002072 


002072 


001666 
001374 


010000 


002306 
0470S4 


003306 
047054 


N13 


MACY11 30A(10S2) 03-JAN-78 08:56 PAGE 169 
DOT OACUE FOR SOFTHARE SWITCH REGISTER S58 G18 
JSR PC, MULT6 ;MULT SECTOR BY & 
MOV #132. ,RC 
SUB SECTOR RO ;RO-SECTOR TO RO = INDEX 
MOV t 
001374 ADD #PHTAB,SECTOR ;SAVE INDEX 
ADD ; INDEX TO BOT HALF OF RHTAB 
MOV seRTTAG RI : INDEX TO TOP HALF OF SRTTAB 
1S: MOV (RO)+, (R14 ;PUT BOTTOM OF RHTAB TO TOP OF SRTTAB 
CMP RO, #RHTAB+132 
BNE 1§ 
MOV #RHTAB, RO -PUT TOP OF RHTAB TO BOT OF SRTTAB 
2s: MOV (RO)+, (R1)+ 
CMP RO, SECTOR 
BNE 2s 
MOV (SP)+,R1 ;RESTOR R1 
MOV (SP)+’RO :RESTOR RO 
RTS PC 
MULT BY 6 ENTER WITH DESIRED # IN SECTOR’ 
AULT6: ASL SECTOR ;2 X SECTOR 
MOV SECTOR, -(SP) 
ASL SECTOR X SECTOR 
ADD (SP)+, SECTOR ity x §)+(2 X S) = 6 X SECTOR 
RTS PC 
i THIS ROUTINE Is NTERED ONLY IF THERE IS A BSE ERROR AFTER A WRITE DATA 
;CMD VERIFIES THAT THE BAD SECTOR IS LISTED IN THE BSE INFORMATION 
; CYLINDER at CYL 410, TRACK 2. 
RETURN IF SECTOR NOT LISTED IN BSE TABLE, ERROR CONDITION. 
‘RETURN+2 IF LISTED, SKIP OVER ERROR 
+RUERR: MOV R4,-(SP) ;SAVE RY 
005314 BIT #CFMT,HCS1 ; CHECK FORMA 
BNE 3$ :BR FOR 20 CECT OR FORMAT 


;ONLY 22 SECTOR FMT IN THIS PGM 
MOV #BSE22H+8. ,RY 
PC, TERRI 


JSR :S6 JF ON HARDWARE DETECTED TABLE 
BR ETURN HERE IP YES 
MOV #BSE22S+8. ,R4 ae RETURN HERE 
JSR PC, TERRI !& SEE IF _ON SOFTWARE DETECTED TABLE 
BR 3$ :RETURN HERE IF YES 

1S: MOV (SP)+,R4 ;RESTORE R 
RTS PC RETURN WITHOUT JUMPING OVER ERROR 


_ CZ2R6GBO RKG11 DU PORT LGC TST 170 SEQ 0170 
CZR6GB.P11 03-JAN-78 08:46 VALUE FOR SOFTWARE SWITC GISTER 
8857 
012604 3S: MOV (SP)+,R4 ;RESTORE R 
88s 7 062716 oco0002 ADD #2, (SP) :SKIP OVER TERROR ON RETURN 
0470S2 000207 RTS PC’ 
| 8861 
| sabe . 
8863 ? THIS ROUTINE DOES THE ACTUAL COMPARING OF CYLINDER, HEAD & TRACK AGAINST 
8864 : SE TABLE FOR THE ABOVE SUBROUTINE. 
886S :RETURN IF FOUND ON TABLE 
B86 :RETURN+2 IF NOT FOUN 
B88 047054 021427 177777 TERRI: CMP (RY), #1 ;SEE_IF ALL 1’S 
8869 047060 001405 BEQ 1$ :BR IF YES NOT ON TABLE 
8870 047062 Gee437 005334 Cc (R4)+, HOC :SEE IF CYL MA 
887 047066 40S BEQ 2s R YES 
887 70 724 TST (R4)+ tELSE ADV TO NEXT CYL WORD 
8873 047072 7 BR TERRI ?& TRY AGAIN. 
8875 ou7074 062716 ooo0002 1S: ADD #2, (SP) 
8876 7100 o0620 RTS 
8878 047102 022437 005324 2s: CMP (R4)+,HDA ; SEE IF SECTOR & TRACK MATCH 
8873 047106 001401 BEQ 3$ :BR IF Y 
: 047110 000761 BR TERRI :OR TRY AGAIN 
Beep 047112 000207 3S: RTS PC 
8883 
g8e4 
888s 
8886 
Bt 7114 005037 001372 
8889 eset 005737 005460 
8890 047124 001904 
8891 O471le6 012777 OO00100 132172 
88 047136 eae 77777 132156 
8894 7144 012777 b001 95 132146 
g89S 0471S2 000207 
8896 
8897 
Bag 047154 005337 001366 
8900 047160 Oo0002 
8961 
8902 
B04 047162 005737 OoOS460 
8905 047166 001003 
83906 047170 005077 132132 
8907 7174 gode07 
8308 7176 S077 132116 
69 7202 000207 
8910 
8911 
e912 


— 
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ROUTINE TO TURN L OR P CLOCK INTERRUPT ON 


LKON: CLR TIMUP 
TST PCLKF 
BNE 1$ spRaneH IF P-CLOCK PRESENT 
mov #100, ,aLKs L-CLOCK, ENABLE INT 

1S: MOV #-1, aPKSB re “CLOCK, ALL 1’S 
MOV 1138, aPKS ‘ENABLE INT ct UP, REP INT 
RTS :LINE FREQ & R 


IKW11-L & KW11-P INTERRUPT HANDLER 
éLock: DEC COUNT 
RTI 


? ROUTINE TO TURN L OR P CLOCK INTERRUPT OFF 
éLKOF: TST PCLKF 
BNE 


1$ : BReCO IF P-CLOCK PRESENT 

abe sks L-CLOCK, CLEAR INTERRUPT 

1$: CLR aPKS /P-CLOCK, CLEAR INTERRUPT 
RTS PC 


i THIS ROUTINE DOES A TIMEOUT DEPENDING ON THE VALUE IN ‘COUNT’ WHICH THE 


C14 
—GRREGECE INC’ BY-SRN7b°Garae | ROY! SRBERCUe PSR” SOF Tiare ShPrch Rect Sten SEQ 0171 


8313 ;*CLOCK’ HANDLER DECREMENTS EVERY 1/60 SEC. 
Said 047204 004737 047114 tmo: ISR PC, CLKON ; TURN CLOCK ON 
318 047210 005737 001366 1S: TST OUNT TIME UP 
i@ 047214 001375 : B 1§ BE Te NO. pheno: 
919 721 737 047162 R PC, CLKOF ‘ELSE, TURN CLOCK OFF 
it Bu5538 0207 aie Bg? 
8923 : THIS ROUTINE GENERATES PARITY FOR EXPECTED MESSAGES 
8924 ?ENTER WITH THE EXPEC ay WORD IN TEMP1 
8925 > TEMP1 I ROTATE LEFT 17 TIMES . EACH TI IME _TH THE CARRY aa 8 8 
B86 RI is I REMENT . AT THE ND 17 RO ROTAT $s TEMP. K OI, 
'R1 BIT O IS EXAMINED. IF IT IS SET, INDICATING 
8928 : THE PARITY BIT IS NOT SET INB . 
8929 jIF TT 1S NOT SET, INDICATING AN EVEN # OF 1’S ,THE PARITY BIT - 
8930 ’ 
7 1 SePAR: MOV RO, -(SP) ; RO 
ease ogee Bt 146 RO. - {35} ;SAVE Ri 
8934 72 012700 000021 MOV #17. ,RO :SHIFT COUNTER 
8935 ou7e34 1 CLR Ri :COUNT # OF 1’S IN TEMP1 
83 7 1 CLC :CLEAR CARRY 
047240 006137 o0S53S2 1S: ROL TEMP1 
8939 047244 103001 Bcc Se BR IF CARRY CLEAR 
Baur Buzses pesoe 2s: : R SOUT gounteR® 
Baie 047252 001372 BNE 1§ 
pais 7883 G8 7694 00004 Be ggrTosn IE 000 #14 Ro 
8946 047262 052737 100000 005352 BIS an PAR, TEMP1 err PARITY BIT 
7 ouze? 12601 3S: MOV {3633 Ri i RESTOR RL 
8 727, 1 MOV +’R RESTORE R 
B39 047274 000207 RTS 
* ROUTINE TO ENABLE LOOPING ON INTERMITTANT ERRORS 
BB j WHEN SLPERR SET BY OTHER THAN SCOPE ROUTINE 
5 
2 047276 032777 001000 131634 §coP1s: BIT #SW9, ISWR 11,908, ON ERROR? 
g324 By Spe 052798 001103 PES. d3pric + HAD ERROR? 
8959 047312 001403 BEQ 1$ :BR IF NO 
ral 7314 7 001110 nov SLPERR, (SP) 
8 047322 011637 001110 1S: MOV (SP), SLPERR ;SET LOOP ADDR FOR TIGHT SCOPE LOOP 
8964 047326 o00002 RTI 
8965 
8966 
8967 


Ae ee eee - - 
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N 


a3 


Baeccstcerer enn eetr ett t ts SeRENE ne 
Ee 
2 


3 
Yaa 
z 
i 
8 
: 


2e 
74 64 
7464 7 +3 
7472 7 7 
Fatt 047476 104124 
$014 047500 012765 000001 
9015 737 S146 
18 737 
1 1 
18 1 
901 3737 14 
1 1 S av 
9022 
9023 047540 012765 100000 
90e4 O47S546 013765 O0lee2e2 
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005314 


00S3S4 





VALUE FOR SOFTWARE SWITCH REGISTER 


S ROUTINE IS hg | BY TYPING A CONTROL-C. 
te oF BE Me TO ALL ON i RATOR TO_HLAT THE CPU WHT.G NSURING 


ATTING IS VALID BEFORE AC LY HALTING 
seed CMP (SP5+, (SP)+ ;RESTORE STACK FROM INTERRUPT 
JSR PC, SUBCLR 
ERROR 24 ;CERR AFTER 
rs} y D ee IF HEADS UNLOADED 
TS 4 se EE IF MANUAL OR AUTO MODE 
fife lsora Sn aot BeNOR 
18: TYPE ,MSG75 oo PENDING 
JSR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
MOV #SRTSPL,HCS1 
JSR PC, DOCMD ;D0 START SPINDLE CMD & GET CONTR RDY 
ERROR ial :RDY NOT SET AFTER ST SPIN CMD. 
MOV 7100 TenPe ;SETUP_ TIMEOUT 
JSR PC, FATTI :FIND ATTN 
ERROR 74 :NO ATTN AFTER ST SPIN CMD. 
CLR UNLD 
3S: TST BADHOR ;SEE_ IF HEADERS VALID 
BEQ 4s :BR IF YES 
INC ND 
MOV #CCLR, RKCS1(RS) 
AOD UN TT, RKCSe(RS) ADD 1 IF ON PORT B 
MOV YRE CAL Ket . 
JSR PC, DOCMD ;D00 RECAL CMD & GET CONTR RDY 
ERROR 124 :ROY NOT SET AFTER RECAL CMD 
Mov #1,RKMR1C(RS) ;SELECT WORD 1 
Bit aus" Z, HMR2 
ERROR 70 ;RTZ NOT SET DURING RECAL CMD 
64S: MOV T10 Tempe spe TuP at IMEOUT 
JSR pC, »FATTL 
ERROR NO Orn AFTER RECAL CMD 


MOV #CCLR,RKCS1(RS) 
MOV SUNIT,RKCS2(RS) ;DRIVE® 


es 


P2PPP2 REELS PIIEPI EE = 
Gx 


PERE DOUUNAUD USSF hE See sae URIIERS 


9065S 


pees 


RES S255 


NN 
& 
<£ 


+ 3 
SSF 


29? 222992 2 
aR 


SERA ERR 
ROL Sroe 


047 
047762 


tei 
12737 
7 


104403 
006 
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booggs 
OS 
043372 
043750 


020000 
057201 
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000010 
005314 


o00S404 
005410 
o0S41e 
00S416 
00S4ee 


131170 


GET VALUE FOR SOFTWARE SWITCH REGISTER 
ADD UNITB,RKCS2(RS) ;ADD 1 IF ON PORT B 


MOV #CLEAR, HCS1 
JSR PC, DOCMD ;00 DRIVE CLEAR CMD & GET CONTR RDY 
ERROR 15] NO ROY AFTER DRIVE CLEAR 
JSR PC,TSTATN PTEST FOR ATTN 
a ERROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
MOV #<D.DRA!D.SPIN!D.DRDY! £0. WV E.AO ;EXPECTED MSG AD 
CLR E.80 “EXPECTED msc. 
MOV #<D. SPOK!D.CART!D. DOOR!D. BRHM! .SSP>, EA Al_ ;EXPECTED Al 
MOV #1.€.B1 3MSG ID FOR EXPECTED MSG B1 
CLR EAE ;EXPEC ED be 
MOV #2,£.B2 :MSG ID FOR CTED MSG B2 
MOV #3,£.B3 :MSG ID FOR EXPECTED MSG B3 
ISR PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 
.WORD T.A2!T.B2!0 *& MSGS SPECIFIED HERE 
ERROR 33 ;MSG AO ERROR AFTER DRV CLEAR CMD 
ERROR 34 ?MSH BO ERROR 
ERROR 35 :MSG Al ERROR 
ERROR 36 :MSG B1 ERROR 
IMP FORM ;WRITE VALID FORMATS 
4S: TST 42 ; SEE IF MANUAL nh AUTO MODE 
BEQ Ss R IF MANUAL MODE 
TYPE MSG76 :PGM ABORTED 
CLR $EOPCT :SET UP EOP TO EXIT TO MONITOR 
CLR SESCAPE 
IMP SEOP1 ;ABORT PGM 
Ss: TYPE ,MSG77 ;CPU HALTED 
YAP STs ;START OVER IF CONTINUE PRESSED 


FORM 
-SBTTL UNEXPECTED TIMEOUT HANDLER 


i THIS ROUTINE IS eNTEne IF THERE IS 
; A. NON EXISTANT MEMORY (NO SSYN) 


, 
: C: STACK OVERFLOW 


BADTMO: MOV (SP) ,RO ;SAVE PC WHERE TIMEOUT OCCURRED 
TST -(RO} ;GET PC BEFORE UPDATE 
BIT #SW13, 2SWR : INHIBIT ERR TYPOUT? 
NE 1$ YES CON’T TYPE 
TYPE EM3 s ABORT T TESTS, UNEXP T.0. 23 PC= 
MOV RO, -(SP) $s SAVE RO FOR” TYPEOUT 
TYPOS G0 TYPE--OCTAL ASCII 
BYTE 6 :: TYPE 6 DIGIT(S) 


SEQ 0173 


a4 
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308 047763 900 .BYTE O ;; SUPPRESS LEADING ZEROS 

7764 032 001000 13114 1S: BIT #SW9, ISWR :COOP_ON ERROR? 

7772 001403 BEQ 2s :NO, BRANCH 
3084 7774 CMP (SP)+, (SP)+ :YES, RESTORE STACK 
308s 7776 177 131104 IMP aSLPADR :GO tO STARTING ADDR OF TEST 
3086 : THAT BAD TIMEOUT 
308 32777 O40000 131130 2S: BIT #SWi4, ISWR >LOOP EST? 
3088 001 1401 BEQ 3$ :NO_ BRANCH 
3089 050012 RTI YES 
g0et 050014 000000 3S: HALT ;UNEXPECTED TIME OUT OCCURRED 
3092 38S INDICATED. You CAN LOOP ON 
3093 reeou ONT oe c$ OR INHIBIT 
3094 RROR’ 7 T BY SETTING THOSE 
3038 SUT TCHe 
3097 16 O CMP (SP)+, (SP)+ REST STACK 
3038 Begs8 raat 042704 IMP $EOP1 :ABORT TESTS 
3100 .SBTTL MEMORY CHECK ENABLE TRAP 
9102 oso024 012737 OSOO4O 001176 MEMERR: MOV 1s SESCAPE 
9103 32 011637 001334 MOV (SPS, TRAPPC : 5108S PC 
9104 36 104017 ERROR 1 UNEXP MEM PARITY TRAP 
9105 050040 005037 001176 1S: CLR SESCAPE 
9106 OS0044 032777 001000 131066 BIT #SW9, ISWR ; CHECK IF LOOP ON ERROR 
9107 g50086 00100 BNE 2s YES FORCE STACK AND TRY AGAIN 
3108 4 00 RTI tELS LSE RE 
9110 OSO00S& 012706 001100 2s: MOV #STACK, SP ; INIT STACK 
giit o050062 000177 131022 IMP aSLPERR ‘LOOP ON ERROR 
9113 
ails .SBTTL RKO& INTERRUPT HANDLER 
9116 oS INTER: NOP 
3113 neeyai Boge NOP 
9118 050072 000240 NOP 
9119 050074 O11 MOV (SP), RO ;SAVE_PC_WHERE INT OCCURRED. 
$120 050076 ooo TST -(ROS :GET PC BEFORE UPDATE. 
9i21 OS0100 104401 oS6151 TYPE MSG6 tINT AT PC= 
alge 050104 01004 MOV RO, -(SP) 3; SAVE RO FOR TYPEOUT 
$124 OS0106 104403 TYPOS : G0 TYPE--OCTAL ASCII 
9125 050110 BYTE 6 ‘TYPE 6 DIGIT(S) 
3126 OSO111 000 ‘BYTE O ::SUPPRESS LEADING ZEROS 
9127 050112 00 HALT 
gi¢e 050114 000240 NOP 
9129 050116 0240 NOP 
3130 050120 o00002 RTI 
3136 .SBTTL POWER DOWN AND UP ROUTINES 
3138 ;POWER DOWN ROUTINE 
$136 050122 012737 050134 000024 S$PWRDN: MOV #SPWRUP,PWRYEC ;SET UP VECTOR 
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9137 050130 000000 

3138 13e@ 000776 

91 

9140 

9141 

$142 950194 905037 _ 
9144 050144 porsse 

He ayes ee Bee 

314g 980155 815756 ae 
9150 oS0200 o0000S 

gies OSO2e0e 000137 013004 
91S3 oS0206 000000 

91S4 

9155 

9156 

9157 

3188 

3186 

3161 

Stes 0S0210 O1e746 oooo40 
9165 050214 oO104%46 

ie Ge0ses foster 

916 466 o00002 
9168 416 

9169 00S666 o00002 
3171 Bie D550 
i345 

3172 02 
317d eves josie 

91 10. 

si Beteee Baste 

ag = ae 

3183 1 ooo00e 
3 0S0270 oOoss00 

3185 Gets7§ BeteO§ coco 
3188 5030 peosn4 

3180 0S0306 oossié 

9191 050310 o60400 

9192 oOS03le oossisb 
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POWER DOWN AND UP ROUTINE 


Gl 
bP 
s 


SEQ 0175 


HALT 
BR .-2 ;HANG UP. 
;POWER UP ROUTINE 
SPWRUP: CLR SPWRCT sHATT OOP FOR TTY 
1S: INC SPURCT WATT OR THE INCR 
MOV : N,PWRVEC :SET POWER {DOWN VECTOR 
MOV agPuR WRVEC+ i BRIont? TY 7 
MOV #PR7, TRAPVEC+2 j LOCK UT ALL gHNTERRUPTS FOR TRAPS 
MOV #STACK, SP :INITIALIZ 
TYPE ,MSGI1" : REPORT PoLER FAIL 
RESET 
IMP PFSRT 
SPWRCT: O ;WAIT COUNT FOR TTY 


DIVISION UTILITY ROUTINE 


iRacne=pfuison ee 


; RY-RS= VISOR 
i RO-RS=GU0TIENT ROPTER DIVIStON 
: ENTE mai eer PC,M ER OPI 
h.DPID: MoV #40, -(SP ;COUNTER FOR DIVISION CYCLES 
MOV RY, -(SP) iH 
MOV RS'-(SP) 0 OR R T ype STACK 
NEG 2SP) ORM 
NEG asP VERSION oF bivisor 
ABB CSS 
ADC RO’ ;PERFORM INIT SUBT. 
ADD 2(SP),RO 
BC M.OPSO ; IF CARRY THEN OVERFLOW HAS OCCURRED 
CL -(SP) ‘THIS IS A LONGER LASTING CARRY BIT 
M.DP4YO: ROL R3 
ROL R 
ROL RI 
ROL RO 
TST aSP TEST CARRY INDICATOR 
BEQ M. DP41 fF TO CARRY THEN ADD, ELSE SUBT. 
CLR ase :CLEAR UP FOR NEXT TIME 
ADD (SP),R1 
ADC a) ;ADD -(DIVISOR) 
Cc SP :SET CARRY 
ADD 4(SP) RO 
BR .DP42 
M.OP4L: RS,R1 
Abe Ra’ ;ADD +(DIVISOR) 
ADC asP :SET CARRY 
ADD R4,RO 
M.DP42: ADC asP ;SET CARRY 
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ae Bk Ugo ree 
5 pan NT CTR 


000006 
BGT TN lle R IF "MORE TO DO 


OOWWDwWW 
a 
BIKA Lo 


RBS 
| 

DDW 

iO 

oow 

a 

~ © 

aa 

4 

<= 


=) 
WwW 
rT 
£ 
— 
OQ 
ss 
oO 


M.DP44: ROL R3 
O6e706 000010 ADD #10,SP ;ADJUST STACK BY 4 WORDS 


2038 
Selene 
: a 
ce 3 
: 
SERS 


: 


0356 062706 O00006 M.OPSC: ADD #6,SP 
000262 S 
050364 000207 RTS PC 


SERRE 
Whe 
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9214 .SBTTL SCOPE HANDLER ROUTINE 
9216 $3 RK RAERRAE ARREARS RRARARERARARKARRKRLAAKARARARRRKRARAAKRKRKE RAK EH 
9217 :&THIS ROUT INE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
9218 :#AND LOAD EST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
9219 :#AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
3¢e0 j THE SWITCH oP TONS PR VID D BY THIS ROUTINE ARE: 
9222 :¥SW11=1 INHIBIT ITERATIONS 
9223 > *SWO9=1 LOOP ON ER 
9224  #SWO8=1 LOOP ON TEST IN SWR<7:0> 
9225 :#CALL 
3226 :# SCOPE ; ; SCOPE=IOT 
S228 050366 SSCOPE: 
9229 050366 104407 CKSWR ;;TEST FOR CHANGE_IN SOFT-SWR 
3230 980370 032777 040000 130542 1S: BIT #B1T14, aSWR i LOOP _ONPRESENT TEST? 
9232 om -#eeeHSTART OF CODE FOR THE XOR TESTERSHSaS 
9233 OS0400 000416 $xTSTR: BR 63 ;;1F RUNNING ON THE “XOR™ TESTER CHANGE 
92 ?:;THIS INSTRUCTION TO A “NOP” (NOP=240) 
S53 PETIRE S173 BEER ocoooy «BY. BEEMRVERcB™? idee egpr feng = OF TE ERROR VECTOR 
9237 Bepurs 737 177060 TST tet to ime OUT XOR? 
ze Gets bipne, Bev areagsmeRvEr EES TOME aes aes yee 
$240 050426 O22626 Ss: CMP (SP)+, (SP)+ >;CLEAR THE STACK AFTER A TIME OUT 
3241 050430 12637 oo0004 mov (SP )+, JWERRVEC j ;RES TORE THE ERROR, VECTOR 
3545 pepiae 6$:;#88e8END OF C FOR THE xor’ t€ ERSHeee 
aeua 050436 9327 000400 130474 BIT #81T08, ISWR LOOP ON SPEC. TEST? 
ace soe 127737 130466 001102 cnre Osun, STSTNN 3 3ON The RIGHT TEST? SWR<7:0> 
3638 DecNse oS73 001103 2s: Tse SERFLG ; HAS BN. ERROR OCCURRED? 
3250 retie i 37 001115 001103 che SERMAX, SERFLG i ;MAX. ERRORS FOR THIS TEST OCCURRED? 
3258 74 032777 001000 130436 BIT 881709, 2SUR :?LOOP ON ERROR? 
3654 050804 013737 001110 001106 73S: nov SLPERR, SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
9256 14 105037 001103 4S: CLRB SERFLG ;;ZERO THE ERROR FLAG 
3657 905037 001174 cLR STIMES i CLEAR TH NUMBER OF ITERATIONS TO MAKE 
3259 050526 777 OO4000 130404 3S: BIT #B1T11,aSWR jj INHIBIT ITERATI 
61 Ds0e3e erate 001216 TST $PASS :31F bist PASS OF PROGRAM 
9565 WG Gees 001104 eee $ICNT 5 INCREMENT ETERATION COURT 
ae4 pepedd 023737 001174 001104 CMP STIMES, SICNT i CHECK THE NUMBER OF ITERATIONS MADE 
9266 pepees b1e737 000001 001104 1S: MOV #1,SICNT PR ATTIACT THE ITERATION COUNTER 
See Gebers eecdr Battad OM cao, Rte Sran'STIMES FiSUWMEET Minecae TO Oe 
9269 OS0600 113737 001102 001214 * MOVE STSTNM,STESTN ;;SET TEST NUMBER IN APT MAILBOX 


J14 
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9270 OS0606 011637 001106 MOV (SP), $LPADR ;;SAVE SCOPE LOOP ADDRESS 
9271 OS06l2e 011637 001110 MOV (SP)’ $LPERR :; SAVE ERROR LOOP ADDRESS 
9272 050616 005037 001176 CLR SESCAPE | ;;CLEAR THE ESCAPE FROM ERROR ADORESS 
367 08 1ie?3? 000001 001115 MOVB #1, SERM SONLY ALL OW 0 ONE(1) ERROR ON NEXT TEST 
06 137 001102 130304 SOVER: MOV St8THN DOISPLAY i DISPLAY EST NUMBER 
9275 050636 013716 001106 MOV PADR; (SP) >;FUDGE RETURN ADDRESS 
92 oS50642 o00002 RTI ::FIXES PS 
ge 003720 S$MXCNT: 2000. >:MAX. NUMBER OF ITERATIONS 
3278 .SBTTL ERROR HANDLER ROUTINE 
9280 55 36-26 He ae aE 96 6 a SE JE ES 0 0 a a a a 
9281 tRTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE _2ROR COUNT, 
ae8e ; XSAVE THE ERROR I eM NUMBER AND THE ADDRESS OF THE ERROR CALL 
gees i xTHE SWITCH OPTIONS PROV BY THIS ROUTINE ARE: 
9286 eeu =I INHIBIT ERROR TYPEOUTS 
9287 ;*#5W10=1 BELL ON ERROR 
3288 j XSUOS= 1 LOOP ON ERROR 
3290 2 ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
9292 OS50646 SERROR: 
9293 050646 104407 CKSWR ;;TEST_FOR CHANGE IN SOFT-SWR 
ee Geos bpiyee 001103 cn wae: te Bowe TEeP' Ne FLAG ap 10_zeRo 
9296 050656 013777 001102 130256 MOV STSTNM, DISPLAY ;:DISPLAY TEST NUMBER AND ERROR FLAG 
32 4 G27 72 002000 130246 BIT apIT 10; aSWR j BELL ON ERROR? 
9299 050674 104401 partis TYPE ,SeeLL RING BELL 
3300 050700 5237 OO111 1S: INC cae +: COUNT THE NUMBER OF ERRORS 
3 1 704 11637 00 1116 thins nov ) p SERRPC ::GET ADDRESS OF ERROR INSTRUCTION 
3303 BEB? 6 7737 reli 001114 MOVB a SERR ITEMB ;;STRIP TH ERROR ITEM CODE 
3304 0507; 0327 130174 00 130206 BIT ee esa Skip TWeeour IF SET 
3306 pe5534 eee pach 066720 ISR Bes TYPERR ::GO TO USER ERROR ROUTINE 
330 950740 104401 001205 te TYPE , SCRLF 
3308 Sears Abiray 000001 001230 GB BAPTENV,SENV 5: RUNING J FE a Reon 
931 4 3737 001114 OS0766 MOVB SITEMB, 21S ::SEt ITEM NUMBER AS ERROR NUMBER 
331 737 051572 i JSR PC, $ATY4S ::REPORT FATAL ERROR TO APT 
Sie Beh aot ses, TE hes wr cnnoe 
3316 050772 005777 130142 2s: TST aSWR : HALT ON ER 
a31@ 81008 00000 ae RATT ON ERRORS 
9319 051006 04407 CKSWR +: TEST FOR CHANGE IN SOFT-SWR 
3320 051008 ere 001000 130126 3S: BIT #B1T09, ISWR $5 1,00R OF ERROR SWITCH SET? 
9322 051014 01371 901110 MOV SLPERR, (SP) ; ;EUDGE RETURN FOR LOOPING 
gas BIOs Borage SONI" ee Bt Bee 8 ieee 
9325 051026 013716 001176 MOV SESCAPE, (SP) ::FUDGE RETURN ADDRESS FOR ESCAPE 


K14 
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11 03-JAN-78 08:46 OR HANDLER ROUTINE 
051032 Ss: 
3367 051032 022737 O42772 oD004e CMP #SENDAD, a842 ;;ACT-11 AUTO-ACCEPT? 
63 Oise 601001 BNE | 65 3;BRANCH IF NO 
4g 1044 vetoes 6S: : we 
9331 051044 oo0002 RTI ; ;RETURN 
3338 .SBTTL TYPE ROUTINE 
9334 s3 RKKKERKAEKREKEKERAE ARERR RAARAAAAAARARARARARARKAAERARERARLRKRAAE 
9335 :KROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
3336 :*¥THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER _A LINE FEED. 
3337 :¥NOTEL: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
3338 ; ¥NOTEC: FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
3339 j KNOTES: ILLC CONTAINS THE CHARACTER TO FILL AFTER. 
9341 ; CALL: 
9342 . $I) USING @ TRAP INSTRUCTION 
g3qa a TYPE , MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
9345 } TYPE 
ax 2 heen 
9348 7 
3349 051046 105737 001157 STYPE: TSTB STPFLG i418 THERE A TERMINAL? 
935! 051054 900000 HALT j ;HAL THERE IF NO TERMINAL 
3353 051060 at 46 1S: MOV RO,-(SP) ::SA 
4y 1 17600 oo0002 MOV aetsP),RO >3GET SS OF ASCIZ STRING 
3355 htt 1 e737 000001 001230 cNPB sAPTENY, SENV LNang0 Heck FOR” ABT snaneis 
3357 051076 i307 32 000100 001231 gITB #APTSPOOL , SENVM He ME * on xa 
9359 051108 010037 1116 MOV RO,61$ >3SET Res ADDRESS FoR APT 
3360 Obit bos 37 1562 we JSR PC; SATY3 11 SPOOL 5 TO APT 
g3e3 petits eed 000040 001231 62: BITB SAPTCSUP, SENVM t1PY coNgOL RESSED 
9363 051126 001003 BNE 60S ?:YES,SKIP TYPE OUT 
9364 1139 Logue 2S: MOVB (RO)+,-(SP) ::PUSH CHARACTER TO BE TYPED ONTO STACK 
S3ee Detisd BBSzEe TST (ep)4 pi OR TF AINAPOR POP IT GFE THE STACK 
9367 1136 012600 60S: MOV (SP)+,RO ::RESTORE RO 
3368 1140 Obe7 18 ooo0002 3$: BOD #2, (SP) 5 ;ADJUST RETURN PC 
3370 051148 ier 16 000011 4S: cnPe BHT, (SP) }:BRANCH IF <HT> 
9372 051154 122716 000200 CMPB #CRLF, (SP) ;;BRANCH IF NOT <CRLF> 
9373 051160 001006 BNE $ 
3374 05116¢ Zee TST (SP)+ ;;POP_ <CR><LF> EQUIV 
ie Galles opiems scner piped lodonne 
3377 951170 105037 051324 CLRB SCHARCNT ;:CLEAR Cc ACTER COUNT 
378 1174 5 BR :iGET NEXT CHARACTER 
9379 051176 004737 051260 S$: ISR PC. $TYPEC ::GO TYPE THIS CHARACTER 
9380 051202 123726 001156 6S: CMPB $FILLC, (SP)+ ::1S IT TIME FOR FILLER CHARS. ? 
9381 051206 001350 BNE 2g ::IF NO GO GET NEXT CHAR. 
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Sanit ae 03-JAN-78 08:46 3 YPE ReUTINE =e cise 
3382 051210 013746 001154 MOV SNULL , -( SP) GET ¥ OF FI FILLER | CHARS. NEEDED 
9384 1214 105 000001 7$: DECB 1(SP) : A wife TO BE TYPE 
aes Gelseg Geers Oo a EE pk ae 
? 1 7 051324 cB HARCNT 3D NOT. COUNT Lis A COUNT 
3388 peis§8 34 Ee $¢ + tS op 
3330 ;HORIZONTAL TAB PROCESSOR 
9392 051234 112716 ooo0040 8s: MOVB ;;REPLACE TAB WITH SPACE 
9393 Ooi 0 004737 0OSi260 95: ISR Bc, gtyPec i; LYRE A SPACE 
9394 1244 132737 000007 051324 BITB #7, SCHARCNT ?BRANCH IF NOT AT 
9395 1252 001372 BNE 9s" +3 T 
ase? Oeisee 007 ee sP?* OF REXT CHARACTER 
ie 
9398 051260 105777 127664 STYPEC: rsT8 aSTPS . ::WAIT UNTIL PRINTER IS READY 
3400 O81 1ie677 go000e 127656 MOVB 2(SP) asTPe ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
ait Obie 1ee766 01S odo000e cHPS #cR, et ) aE CHARACTER A CARRIAGE RETU 
3403 051304 105037 051324 cLRB SCHARCNT ?YES--CLEAR CHARACTER COUNT 
3405 Osi 31 7 000012 oooooe 1S: nee He eCSP) i Ss RCE ves LINE FEED? 
9407 051322 105227 INCB (PC)+ : : COUNT THE CHAR ACTER 
9408 O51 000060 SCHARCNT:.WORD O ;; CHARACTER COUNT STORAGE 
3409 051326 000207 STYPEX: RTS PC 
aytd .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
9413 eee eee eRe Re ee eet eNEnE nT te att BINARY MAPER TO A GOL 
auis ;ATHIS ROUTINE IS USED TO CHANGE A 16-BIT TF. DEPENDING ON WHETHER THE 
9416 t aNUMBE IS POSITIVE OR NEGATIVE A NO CeaCE OR OR'A MINUS SIGN WILL BE TYPED 
au12 $ SET Ore ME TA eoneee. OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
9419 :*CA 
9420 sac ans MOV NUM, -(SP) i BUT THE BINARY NUMBER ON THE STACK 
auel 1 i TYPDS :GO TO THE ROUTINE 
9423 051330 STYPDS: 
aiee 051339 01004 Mov RO,-(SP) ;;PUSH RO ON STACK 
9425 1 01014 MOV R1’-(5P) >PUSH R1 ON STACK 
9426 051334 O10246 MOV Re; -(SP) +:PUSH Re ON STACK 
9427 051336 010346 MOV R3,-(5P) ;;PUSH R3 ON STACK 
gus Deta4e OLSe4e o20200 HOV Roaaae csp) See Fa Bene SHE TEN SIGN 
3450 beiaue BtEcoe ateaete MOV Saree) RS bi aeT HE I PtNBuT NU Unger 
9431 051352 100004 BPL 1$ ::BR IF INPUT IS 
9432 1354 o05405 NEG RS >;MAKE THE BINARY SOMBER POS 
Six REISS bbecag 0005S oonaL 5 FEY av CSP) HOES Hae CORE TANS THEN” 
9435 051366 012703 os51544 : MOV #$DBLK,R3 5 ; SETUP THE OUTPUT POINTER 
9436 051372 112723 o00040 MOVB #’ ,(R3)+ :SET THE FIRST CHARACTER TO A BLANK 
9437 051376 O05002 2S: CLR Re ::CLEAR THE BCD NUMBER 
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CZR6GB.P1i 03-JAN-78 08:46 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

9438 051400 016001 051534 MOV SDTBL(RO),RI1 ;;GET THE CONSTANT 
9439 051404 160105 3S: SUB R1,RS ;;FORM THIS BCD DIGIT 
a} Belii8 coe The Re 4 aoe He BCD DIGIT BY 1 
a4 051418 4 — fo? Re i] Geeck Tr ac Ma bicyr=0. 

45 0514, . BNE 5 

4 ? TSTB P) TI NG LEADING 0’S? 

guu9 Betdsg iBaqd$ gareti«*SS git 744 
9448 051426 106316 SS: aslB (SP) j MSD? 
audg ati 000001 177777 R50e Tfsp) -1(R3) ies “sty THe 
9451 051440 052702 goode6 gS: BIS . 0, Re MAKE 
ues Relies 95 ° Foye re F854 Pat Ele fOarE IN OT ALREADY. @ plete R 
9454 051452 005720 TST (RO)+ ; JUS 
siz Baties Gp9%%% 00040 oy get gee Te ea ofa 

7 1 BGT ::GO TO EXIT 
3488 pet deg BO30R5 MOV Re, Re a oue LSD 
94 051466 0764 BR 65 :GO CHANGE TO ASCII 
gu60 1470 105726 8s: rsTe (oP + i FWAS THE LSD THE FIRST NON-ZERO? 
See O51474 1ie663 177777 177776 a nove <ASSP) ,72(R3) iE % Tote SIGN AFOR TYPING 
9464 051 1 c MOV (SP)+, :: POP NTO R 
sie Bitte Bist i 0: ESO BE 

? 1 MOV (SP)+,R :: POP NTO RI 
guee peieig Bisess MOV (aes 8 + + Bop st K INTO RO 
9469 051516 104401 os1544 TYPE SOBLK :;NOW T THE NUMBER 
3420 651855 o1g6 000002 oo0004 Mm V 2(SP),4¢8P) +t AbaUST HE STACK 
9472 0515 O1eig RTI : ;;RETURN TO USER 
3473 051534 Gease0 SDTBL: 19900. 
ee iP 
94 1544 $DBLK: .BLKW 
3478 .SBTTL APT COMMUNICATIONS ROUTINE 
au SR e eee eee ra ttT0 REPORT FAIR. ERROR 
481 OS1S5S4Y 112737 o00001 os2020 $ATY1: Move #1,SFFLG ;;TO REP ORT FATAL ERROR 
age 051 i187 37 000001 OoS20i6 SATYS: MOVE #1, SMFLG ::TO TYPE A MESSAGE 
9484 051572 112737 0000 TY4: FF T Y REPORT FAT RROR 
3483 981572 01 oS2020 SAY: MOVB #1,SFFLG ;;TO0 ONLY REPORT FATAL ERRO 
3486 1 010046 MOV RO,-(SP) ;;PUSH RO ON STACK 
94 1 10146 MOV R1'-(5P) j ;PUSH Ri 7oN STACK 
a4e9 ofieio ooiveg Ole pre pele bepNor: oe ee 
3430 Osiele 120737 000001 001230 cNeB #APTENV, SENV j OPERATING UNDER APT? 
9492 051622 132737 OO00100 001231 BITB #APTSPOOL , SENVM : SHOULD SPOOL MESSAGES? 
8493 051630 601425 BEG 3$ ::IF NOT: BR 
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03-JAN-78 
COMMUNICATIONS ROUTINE 
MOV 34(SP) RO 
ADD #2. 4(SP) 
1S: rst SMSGTYPE 
MOV Fy SMSGAD 
2s: TSTB (PO)+ 
BNE 2s 
SUS $MSGAD, RO 
ASR 0 
MOV RO, SMSGLGT 
MOV #4’ SMSGTYPE 
BR Ss’ 
3S: MOV a4(SP) 4S 
ADD #2, 4(SP) 
MOV 177776, -(SP) 
ISR PC, STYPE 
on: .WORD 
10S: TSTB SFFLG 
BES SENV 
BEQ 12$ 
11S: TST SHOGTYPE 
BNE 11 
MOV 34(SP) , SFATAL 
ADD #2, 4(SP) 
INC GtYPE 
12S: LRB FFLG 
CLRB SLFLG 
CLRB LG 
MOV (SP)+,R1 
MOV (SP)+; RO 
RTS 
MFLG: .BYTE 0 
SLFLG: :BYTE 0 
SFFLG: :BYTE O 
* EVEN 
PTSIZE=200 
APTENV=001 
APTSPOOL=100 
PTCSUP=040 


SEQ 0182 


8 8S 

x o 
x 
=z 
_ 
w 
w 
_ 
8 
” 


; 


% 
3S 
2 
m 
Be 
xX 


iavar REPORT FATAL ERROR? 
id NING URDER APT? 


ae my MESSAGE? 


ADDR. 
— Way TO TAKE ERROR 
33 CL pe AAS 
; CLEAR LOG Ft. 


i PoP TACK INTO RO 


t tMESSG. FLAG 
;;LOG FLAG 
::FATAL FLAG 


aSBTTL BINARY TO OCTAL (ASCII) AND TYPE 
jSHUROR SEEDERS ERE SEOSORSSHUAS SENSES SE EEEb se EseESESEEEREEREEE SERS 


tATHIS wa IS USED TO CHANGE 
: (ASCII) NUMBER AND TYPE IT 
6 papi ateat HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS 10 TYPE 


; #OCTAL 
Vv NUM, -(SP) 
TYPOS 
BYTE N 
BYTE MM 


WK CC COC ee 
oO 


3 ;N= 


A 16-BIT BINARY NUMBER TO A 6&-DIGIT 


; sNUMBER TO _ BE TYPED 
;CALL_FOR TYPEOUT 
1 TO & FOR NUMBER OF DIGITS TO TYPE 


0 
;;1=TYPE LEADING ZEROS 
; ;O=SUPPRESS LEADING ZEROS 


STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


oO eee eee 


SeeerRenRe ba 


ratutatatatatatatta 
Bad Vou Zan— 
BRE 


gees 


RRREmURRRM MRC 


CZR6GB0 RK611 
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ines 


—-O00~-—- 


= b= — eb pe pe 


ORALNS 


e 


NELVOMVOLMOR EVER LOE 


Oe bao Dm be Pam Dae ae Pe ee Pe De bmn fe fe Fe b> b> Pe Ps Ps Pe ae Pe 


: 
| od aed 


<£ 


eee 
BER 


OU PORT LGC TST 
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oO~ 
Coane 


Dea! 
iG) 


: 


fee 


ara 
RARE 


N 
~ 
o 


“N 
SR 


~ 


— 
Be 
io 


ie 


R 
Be 


ze 


SSEN 


Boe 
N 


o0000 
a 
ror 
ooo 
=—-7O 
Oow 


pease 


MACY11 30A( 
BIN 


i 
2 


4 
’ 
3% 
STY 
os2e4s 


$TY 
STY 


oSee4S 
O0S2e47 
O0S22e44 


1S: 
es: 


oooode 000004 


10Se2) 


MOV NUM, -(SP) 
TYPON 
MOV NUM, -(SP) 
TYPOC 
POS: MOV a(SP),-(SP) 
MOVB 1(5P), LL 
MOVB (SP)+ 
ADD #2, (SP) 
BR STYPON 
POC: MOVB #1,SOFILL 
MOVB #6, SOMODE+1 
PON: MOVB #5, SOCNT 
MOV R3,-(SP) 
Roy. Be -teb) 
MOVB SOMODE+1,R4 
NEG RY 
ADD #6,R4 
MOVB R4’ SOMODE 
MOVB SOF ILL, RY 
MOV 12(5P);RS 
CLR R3 
ROL RS 
BR 35 
ROL RS 
ROL RS 
ROL RS 
MOV RS,R3 
ROL R3 
DECB SOMODE 
BPL 7§ 
BIC #177770,R3 
BNE 4§ 
TS RY 
BEQ 55 
INC R4 
BIS #°0,R3 
BIS 8’ °R3 
MOVB R3, 8S 
TYPE 8$ 
DECB $OCNT 
BGT 2s 
BLT 6S 
INC RY 
BR 2s 
MOV (SP)+,RS 
MOV (SP)+/R4 
MOV (SP)+°R3 
MOV 2(SP)>4(SP) 
MOV (SP)+' (SP) 


B1S 
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INARY TO OCTAL (ASCII) AND TYPE 


;*#STYPOS OR STYPOC 
> #CALL: 


;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


;*% 
+S yates HERE FOR TYPEOUT OF A 16 BIT NUMBER 


;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


; 3 PICKUP Mag 
MBER OF DIG 


ee 
s*, 
ee 
ss 


LOAD 


NU 


;;ADJUST RETURN 


;;SET THE 


ee VE RS 
$:GET THE NUMBER OF DIGITS TO TYPE 
;;SUBTRACT IT FOR MAX. ALLOWED 


MODE 1 
Ims T 


TCH 


SW 
TS TO TYPE 
ADDRESS 


ZERO FILL SWITCH 


OR SIX(6) DIGITS 


;;SAVE_IT FOR USE 
GET THE ZERO FILL SWITCH 
NPUT NUMBER 


ae aa 


oDuw- 


2750 


3: 


DBOOD 


Sm 
a 


mm 


wv 
ent 
8 
3 
+ 
z 
me 


To<noozze 
408 8S 


" 
2 


Es 


ANYMORE 0’S 


T ASCII 
NOT ALREADY 


SEQ 0183 
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CZR6GB.P11 03-JAN-78 08:46 BINARY TO OCTAL (ASCII) AND TY 
Etitd pessue 5 wd 8S: BY 0 TORAGE CII DI 
96 psesas 908 , By TE 0 RE RET FOR Tee RoUTINE 
961 Sue 000 Hae “BYTE E tt PERO-F LL SW oth 
13 052246 oo0000 SQMODE: zHORD 9 anaied ::NUMBER OF DIGITS TO TYPE 
14 A Sn tae i tal aa ee ress oh eee 
#15 Hen: “Hien 8 1 IUOBER, OF ITEMS IN QUEUE 
9618 OS2254 900000 .WORD O $OUTPUT POINTER 
052256 passe) STkaaRT: [BLKB 1 :TTY KEYBOARD QUEUE 

1 052260 .EVEN 
9622 
3eo4 STH aT OUT INE. W ROL Ni ALIZE THE TTY KEYBOARD INP 
E85 eee tie Phe TR TERRU iN CaF bA“Eno TURN ON THE KEYBOARD INTERRUPT 
9627 baomis 


;* PC, STKINT 
5% RETURN : 


052260 o0so 250 STKINT: 
ae feces! flere Geeese p5gcse toy BST Soom UB ihn "eRe eet Serb iaesed, 
MO stko EC ii] INITI iar THE KEYBOARD 


o0006e2 MOV ae SR 2STKYE BR” LEVE 4 
3% beesis er 128628 126616 ny eRe xs ; Beet Os KEYBOARD INTERRUPT 
3638 052326 000207 RTS PC :RETURN TO CALLE 
seu chee ROUr Pour Tet se ERVICE THE TTY KEYBOARD INTERRUPT 
ge4e j MY 3 ADIN NG THE. CHARACTER FROM THE INPUT BUFFER AND PUTTING 
9644 + *IF ih Cc TER IS A “CONTROL-C" (#C) STKINT IS CALLED AND 
g645 ?#UPON RETURN EXIT IS MADE TO THE “CONTROL-C”™ RESTART ADDRESS (STOP) 
9647 052330 117746 126612 ecanns MOVB a@STKB,-(SP) 5 ;BTCKUP THE CHARACTER 
aes Beens Bic9 A508 Hg EAEGCSP RIPE OMEGA. cr 
9650 344 1007 BNE 1 ; ;BRANCH TF 
96 ese ie 7 O53455 TYPE Soyttc si TYPE @ ONTROL-C (tC) 
3b5¢ aoe 7 JSR P C,STKINT saND) te Stack 
See we os Be TPS Goal 
26 052378 026737 000176 001140 chp BGUREG, SHR He SOF T= SUR SELECTED? 
9660 


ose40e2 es: 
9661 OSe40e 022737 O00001 OS2eS0 CMP #1,STKCNT 3312S THE QUEUE FULL? 
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gSeiia ppuggs 
eis Be 
fein Bate 


001200 


iT 


Sea SSeRORE EE 


PRR 
3a Vo 


seennentes 


000176 
126362 
126356 


177600 
000007 


y 


3 


Rtatatatatatatatata 
RALOWHS 


Ow 
acc 
Fanintetays. | 
§ 
8 


S 
aR 


BOUe 


27 001134 


126360 


eelveLvelve Neve DveDveDvelvelve lve lve fvelvs lve} 
NNNNN 


eet i 
NOU SW O 
-_ 
tah) 
888 
N 
We 


NNNNNNNNAN 


053470 
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1264S4 


0S2eS7 
OS2eeSe 


001140 


000001 


001135 


1S 


O3-JAN-78 08:56 PAGE 185 
TTY INPUT ROUTINE 


ONee | SBELL + OONG THE TTY. BEL 

ig? (oP)+ ii CLERN CHARACTER OFF OF STACK 
3S: cre (SP), #23 3:15 IT A CONTROL-S? 

cL KS t BTSaeLe TTY KEYBOARD INTERRUPTS 
31s:  TSTB  asTKks ee OR A CHARS 

> BP. 1$ Ode UNTIL $e THERE 

a S790 Et ST a pa Ca 

er (SP)+, bel 3315 be A CONTROL } 

Mov #100, 3STKS $3 TTY KEYBOARD INTERRUPTS 
32S: STKCNT HH T THIS CHARACTER 

ang (SP), #140 pe gQut R CASE? 

BLT ug He IF YES 2 

chr gat. 3315 17 A SPE JAL CHAR 

BIC #40, ( 3;MAKE IT Pves ASE 
4S: MOVB (P3409 OSTKGIN AND PUT IT IN QUEUE 

INC $TKQI HH TE THE POINTER 

CMP STKGIN, SSTKQEND ;;G0 OFF TH a; ? 

FOV #STKQSRT , STKQIN bIRESET THE POINTER 
SS: RTI gs 


Geoqeee rt itt omer ane 


AaOUT ine renee EB FROR THE TROP HANDLER, AND 


WILL 

:¥SERV TE ITCH REGISTER TRAP 
> ¥CAL TC AEN  SPERATI LING 18 IN TTY eee 
éexcuk: CMP # G, SWR 3;1S THE T-SWR SELECTED 

ac tie He cH NOT AITING? 

BRL 5 tite Rot extn Ne 

MOVB as He -( ss 

BIC #tCl 2, ( ::MAKE IT 7-BIT ASCII 

SNE 53 Te eee eT THE TTY QUEUE 

tt AN ext 


EE eee ere ae TTC aMreamueT seni 
t EROUTINE OR F ROR THe as tae wena tee Ree RECISTE Frou RESU Matta 


j XCONTROL—G BEING 1 TEA ING See cTED.” 
6S: SAUT Yop hi eRe He ah BNAING IN REGISTER ae 


Seo : BRANCH 
TST 3; CLEAR CONT F TACK 

JSR é PSTKINT LUSH SH THE UT UE 

CLR astKs :DISABLE TTY KEYBOARD INTERRUPTS 
MOVB #1,SINTAG :iD18 SAF ERRUPT MODE INDICATOR 


» SCNTLG ;;ECHO THE CONTROL-G (fG) 


SEQ 0185 
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Beseas 13746 


Ossere duzrie 


Le TST 
08:46 
0S3475 
000176 
OS3S506 
126260 
126254 
177600 
000003 
OS34S6 
000006 
001135 


100 
330 


Bai ete 
1135 
000100 
051260 
000060 
000067 


oo0060 
000002 


ooo002 
177776 
001204 


MACY11 S90 1988) 


Y INPUT ROUTINE 


S$GTSWR: TYPE SMSWR 
MOV SWREG, - (SP) 
TYPOC 
TYPE , SMNEW 
19S: CLR ~(SP) 
CLR (SP) 
7$: TSTB a$TKS 
BPL 7$ 
MOVB aSTKB ~ (SP ) 
BIC #tC177, (SP 
CMP (SP), #3 
BNE 
TYPE SCNTLC 
ADD 
000001 CMPB SINTAG, #1 
BNE $ 
126212 MOV #100, aSTKS 
8S: IMP STOP 
9S: CMP (SP), #25 
BNE 1 
TYPE $CNTLU 
20S: ADD 86, SP 
BR 19$ 
10S: CMP (SP), #15 
BNE 16S 
TST 4(SP) 
BEQ il 
126140 MOV 2(SP), aSWR 
11$: ADD ri SP 
14S: TYPE ScRLF 
000001 CMPB SINTAG, #1 
BNE 15$ 
126116 MOV #100, 2STKS 
15S: RTI 
16S: JSR PC, STYPEC 
CMP (SP), #60 
BLT 18$ 
CMP (SP), #67 
BGT 18$ 
BIC #60, (SP)+ 
TST ec SP) 
BEQ 17 
ASL (SP) 
ASL (SP) 
ASL (SP) 
17S: INC 2(SP) 
BIS -2(SP), (SP) 
BR 7$ 
18S: TYPE SQUES 
BR 20 


O3-JAN-78 08:S6 PAGE 186 


;; TYPE CURRENT pe 


SAVE SWREG FOR T 


YPEOU 
fet ASCTI CALL DIGITS) 
FOR ee SWR 


Or eAR 


el 


CONTROL-C RE 


ide UD tren. 


33 YES ECHO CONTROL — 
RE PREVIOUS. TNPU 
!tLET’S TRY IT AGAIN 


;1S IT A_<CR>? 
ANCH 


eer ET te FIRST CHAR? 
9° 


;;SAVE_NEW SWR 
;; CLEAR STACK 
35 EC <CR> AND <LF> 


;RE-ENABLE TTY KBO INTERRUPTS? 


2 | BRANCH IF NOT 


;;RE-ENABLE TTY KBD INTERRUPTS 


1 KeyBoaRO INTERRUPTS 


SEQ 0186 


[ae RK611 OU PORT LGC TST 
CZR6GB.P11 03-JAN-78 08:46 


9775 
9776 
9777 

| 9778 

97793 

9780 
9781 
97: 
3783 
9785S 05311 11646 
9786 933119 nytt 
9787 0S3120 ooS066 dOO00004 
766 ist le e 053134 
7s Desise 
9791 053134 
oes peated 08737 052250 
gra esis BOl77e Oo 
arg salve 17766 177102 

ve 

$73 Gesieo Gere, Osesss 
9799 053170 012737 OS2es6 
9800 053176 000 
9801 
9802 
9803 
9804 
9805S 
9807 
Se ASEM pons 
9810 fasste 12703 0OS3434 
981 0$3210 0S34S6 
Sie Qesels 10145 
Sis fee 62 coors 
zie eee bers 
Si en Bigs 
9819 36 112737 000134 
9820 05324 04401 053432 
$8el 12716 177777 
98 s Be Sy poaao3 053434 
ee Osses Godse” 
Sec fee jan SaaS 
9827 327, Apdoue 
98 0S32e74 005716 
9829S 053276 OO1406 


MACY11 tee O3-JAN-78 08:S6 PAGE 187 SEQ 0187 


oo00de 


oooo04 
0S22S7 
OSeeS4 


0S3432 


Y INPUT ROUTINE 
-OSABL LSB 


5 SE SE SEE SE SE SE ES SE SE SE SE SE A AE JE HE HE HE EH SE EH HH a 
i ATHIS: ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


iS ROCHR ;GET A CHARACTER FROM THE QUEUE 
«i RETURN HERE :CHARACTER IS ON THE STACK 
i Hee PARITY BIT STRIPPED OFF 
SRDCHR: MOV (SP),-(SP) ;;PUSH DOWN THE PC AND 
MOV 4(SP},2(SP) >: THE PS 
CLR 4(SP) ::GET READY FOR A_CHARACTER 
CLR -(5P) ;}PUT NEW PS ON STACK 
MOV #64$,-(SP) T NEW ON STACK 
al RTI : pop NEW PC AND PS 
1S: Ist STKCNT ;;WAIT ON A CHARACTER 
DEC SKoNT Heron cong THE COUNTER 


MOVB ae 

INC ark U a "8 E POINTER 

CMP a , WSTKQEND’ : YTD T OF THE END? 
MOV #STKQSRT, srxeour' #2 RESET The NPOINTER 


RTI 
; Rrra aera eet ttt eee eeeeeeaiae 
jATHIS: ROUTINE WILL INPUT A STRING FROM THE T 


:*C 
2% ROLIN ;; INPUT A STRING FROM THE T 
+ i RETURN HERE +;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
$% :: TERMINATOR WILL BE A BYTE OF ALL O’S 
SRDLIN: MOV R3,-(SP) ;;SAVE_R3 
CLR -(§P) 5 CLEAR THE RUBOUT KEY 
1$: MOV SSTTYIN,R3 3;GE 
2s: CMP #STTYIN+22,R3 $s BUFFER E FULL? 
BLOS 4§ :8R IF xe 
RDCHR +GO_READ ONE CHARACTER FROM THE TTY 
MOVB (SP)+, (R3) $560, CHARACTER 
10S: CMPB #177, tR3) 3315 IT A RUBOUT 
BNE S$ ::BR IF 
TST (SP) ::I1S THIS THE FIRST RUBOUT? 
BNE 63 ::BR IF 
Move #35) 98 :: TYPE A BACK SLASH 
MOV §-1, (SP) ;SET THE RUBOUT KEY 
6S: DEC R3 *BACKUP BY ONE 
CNP R3, #STTYIN Hie EMPTY? 
MOVB (R3), 9S ; SETUP TO TYPEOUT THE DELETED CHAR. 
TYPE 9$ +3 YP 
BR es i + GO READ ANOTHER CHAR. 
S$: TST (SP) RUBOUT KEY SET? 
BEQ 7$ ::BR IF NO 
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saan os Te p00. 34 053432 
$531 esa, 08401 
gey1 estoy O61003 OO 
eau 1 n 1 oOS3463 
og38 tae 000022 
9838 1011 
9839 S013 
540 IOS4O1 01205 
om ISO 
984 ants 001204 
9644 As 
98YS 13 053432 
au ub 04401 O0S3432 
one e27e3 oOo001s 
gov OBaa7e ie 477272 
Seee GNIS Dieeg3 
1 
oosy 14 ebee ooo004 oo00002 
open 5 e766 OS5S3434 doo0004 
98 oo000e 
98 
9860 OS34SE O41536 oO0S01S ooo 
9861 O0S3463 136 006525 oo000le 
98) eatee 043536 o0S0iS 000 
986 0S34 01S OSi4%le oS1127 
ee 
9866 053514 020075 000 
9867 0S3S520 
9868 
S859 
9870 
9871 
9872 
9873 
9874 
9875 
9876 
9877 
9878 
9879 
3300 
Ft pe3269 2o28 ooo004 oo0000e 
9884 053530 oo46 
988S 053532 0146 


G15 


O3-JAN-78 08:56 PAGE 188 
TTY INPUT ROUTINE 


MOVB #’\, 9S ;; TYPE A BACK SLASH 
TYPE 3g 
CLR tSP) ;;CLEAR THE RUBOUT KEY 
7$: cNeB #25, (R3) 7:15 CHARACTER A CTRL U? 
,s 
TYPE $CNTLU :;TYPE A CONTROL “U” 
BR 5390 START OVER 
8S: CMPB #22, (R3) ::I1S CHARACTER A “tR”? 
BNE 3$ ;; BRANCH I 
CLRB (R3) ?:CLEAR THE CHARACTER 
TYPE , SCRLF >: TYPE A “CR” & “LF” 
TYPE TTYIN :: TYPE THE INPUT STRING 
BR :?GO PICKUP ANOTHER CHACTER 
4S: TYPE SQUES :: TYPE A??? 
BR ig ::CLEAR THE BUFFER AND LOOP 
3S Move (R3), 98 ?:ECHO THE CHARACTER 
CMPB BiS, (R3)+ ;;CHECK FOR RETURN 
NE 2 +:LOOP IF NOT RETURN 
CLRB =1(R3) ?:CLEAR RETURN (THE 15) 
TYPE SLF >: TYPE A LINE FEED 
TST tSP)+ *:CLEAN RUBOUT KEY FROM THE STACK 
MOV (SP)+,R3 ; ;RESTORE 
MOV (SP),-(SP) ?ADJUST THE STACK AND PUT ADDRESS OF THE 
MOV 4(SP5,2°SP) 33 FIRST ASCII CHARACTER ON IT 
. MOV aSTTYIN, 4(SP) 
RTI ; ; RETURN 
9S: .BYTE O ::STORAGE FOR ASCII CHAR. TO TYPE 
- BYTE 0 :? TERMINATOR 
STTYIN: . BLK 22 ;:RESERVE 22 BYTES FOR TTY INPUT 
SCNTLC: :ASCIZ /#C/<15><12> ?:CONTROL “C” 
SCNTLU: :ASCIZ 7tU/<15><1e> ::CONTROL “U" 
SCNTLG: .ASCIZ ZtG/<18><1e> ::CONTROL “G” 
R: ASCIZ <15><le>/SWR = 7 
SMNEW: .ASCIZ / NEW = / 
-EVEN 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


55 36 SESE BE EJ 0 JE J 2 9 0 A 0 9 0 9 2 I a a a aE 
 ATHIS ROUTINE WILL BERD AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


NARY. 
ACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 


:#THE INPUT CHAR 
t#OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A “?" WILL BE TYPED 
:*#FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
j # THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 
: RDOCT ;;READ_AN OCTAL NUMBER 
7" RETURN HERE ??LOW ORDER BITS ARE ON TOP OF THE STACK 
+x *:HIGH ORDER BITS ARE IN SHIOCT 
SRDOCT: MOV (SP),-(SP) ;;PROVIDE SPACE FOR THE 

MOV 4(SP5,2°SP) ? INPUT NUMBER 

MOV RO, -(5P) >:PUSH RO ON STACK 

MOV R1,-(S5P) +:PUSH R1 ON STACK 


SEG 0188 


| 
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ZR6GB.P11 03-JAN-78 08:46 READ AN OCTAL NUMBER FROM THE TTY 
3886 053534 . HOV Re, -(SP) ; ;PUSH Re R2 ON STACK 
3363 Geset0 ie we "BRIN csppesme GE AGbRES Gr’ TSF cunmacren 
98 pesees Bos cLR RL +:CLEAR DATA WORD 
36% fret 2s: nOVE R0>+, -(SP) te eho Ger CHARACTER 
ps a] fesee erat 000060 cnr 8.0, (SP) H RawE SURE THIS CHARACTER 
3 4 30Fe 000067 CMPB #7, (SP) " 
38 se BLT 45 
301 L. R1 33;#2 
38 3574 006102 ROL Re 
$900 OS35 006301 ASL R1 so a4 
ROL Re 
3 BS ASL Rl 3; *8 
1 ROL Re 
9904 053606 042716 177770 BIC #407, (SP) ;#STRIP THE ASCII JUNK 
3208 Baseis Doce} 8 Dp SgP) 4,R1 if IN THIS DIGIT 
i 6 OICiEe 000012 - nov Ri 12(SP) $s Scan TeMrNaTOr vanscaali symm: 
gau8 peseso pipes 053656 MOV Re’ SHIOCT 
3310 3630 012602 MoV (SP)+, Re 3 ;POP ST sTact iN Re 
3318 besess 613800 HOV {2p} 3° RO POP TACK INTO at 
9914 BODE 4$: TST (SP)+ : CLEAN P T FROM STACK 
9915 ah Beai 2 Core (Ro) : eer ER RA TRAITOR . 
Sa1> eaeue dpoond es NORD oO i }TVPE"UP THRU THE BAD CHAR. 
9918 053650 10440 4 ; TY 2.9 MOR g mL Ee 
oo ee Se sxzocr: “Hoge. foo, no Gane SE ITE, 0°88 
ges} -SBTTL OOUBLE LENGTH BINARY TO AaHIGH as RBA VERT ROUTINE 
93923 © 3 3G M6 ME HG ME HE HE HE HE HE HE HE HEHE HEE HE EER RRR RR EH EE REESE 
3324 jATHIS ROUTIN atthe ¢ NVERT 8 32-BIT UNSIGNED BINARY NUMBER TO AN 
9926 ?¥CALL ‘ 
gese i nov sgiteet ; ;POINTER TO TO. LOW WORD OF BINARY NUMBER 
3323 x RETURN ete ADDRESS CONG He FIRST ASCIZ CHAR. IS ON THE STACK 
9931 
4y $0B20: SAVREG A RE R 
gg35 Rese ATecat oo0002 ARGV 2(SP),R1 Ha Ye ue bE BORNTE R To LOW WORD 
9934 053666 01270S 053777 MOV HSOCTVL +13. ,RS POINTER TO DATA 
335 05367 O1e? 000014 MOV #12.,R4 bo ELEVEN cURRACTERS 
99 7 12703 177770 MOV #tC7'>R3 : 00-5 
9937 053702 012100 MOV (R1)4+,RO ;;LOWER WO 
938 053704 O12101 MOV (R1)+;R1 ;;HIGH WORD 
9939 37 b0500e CLR Re ;; TERMINATOR 
9940 3710 11024 1$: MOVB Re, -(RS) ::PUT CHARACTER IN DATA TABLE 
9941 053712 0610002 MOV RO,Re ::GET THIS DIGIT 
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9942 
9943 
3944 
3 

9947 
39948 
3949 


9951 


Bia 


39954 
9355S 
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oo000e 


ooco&0 


4066 2703 000060 


054076 
054100 
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DCUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


SEQ 0190 


DEC RY ;;COUNT THIS CHARACTER 
BGT 3$ :BR IF NOT THE LAST OIGIT 
BEQ 2s 5 3BR IF IT IS THE LAST DIGIT 
INC RS +3 L O1GiT -AOTUS ST POINTER FOR FIRST 
MOV R5,2<SP) 8 C1Z ¢ YON THE STACK 
RESREG RESTORE ALL FecisT RS 
RTS PC $s Reston TO USER 
2$: ASR R3 >:POSITION THE MASK FOR THE LAST DIGIT 
3$: ROR R1 ;;POSITION THE BINARY NUMBER FOR 
ROR RO +3 THE NEXT OCTAL DIGIT 
ROR R1 
ROR RO 
ROR an 
ce BS, Re 
ROD #’°O,Re ‘ane Ke THES. CHARA 
1S T IN THE atte TABLE 
SOCTVL: seLKe 14 RESERV Trata T ABLE 
.SBTTL. OOUBLE LENGTH BINARY TO ie CII CONVERT ROUTINE 


5 5. HE EAE HE ME BE BE JE 0 0 a a a a HH 
I ATHIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN tte GED 


saDEC mat ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUS 
> *CALL ; 
5 mov sgt ;;POINTER TO LOW WORD OF BINARY NUMBER 
1 a RETURN ;; THE FIRST ADDRESS OF ASCIZ 
::I1S ON THE STACK 
$DB2D: SAVREG ;; SAVE REGISTERS 
MOV 2(SP),R2 ;$PICKUP THE DATA POINTER 
MOV #SDECVL, RO T ADDRESS OF “SDECVL STRING 
MOV RO,2(SP3 ::PUT ADDRESS OF ASCIZ STRING ON STACK 
mov cR +, BL ::PICKUP THE BINARY NUMBER 
MOV #10. .45 ;;SET UP TO DO 10 CONVERSIONS 
mov Bs ::ADDRESS OF TEN POWER 
1$: CLR R3 ;;CLEAR PARTIAL 
2s: SUB (RY) RL ::SUBTRACT TEN POWER 
SUB (RS),Re 
BLT 3$ ;;BR_IF TEN POWER TO LARGE 
m OR es 
3S: ADD CRY) +, RL : RESTORE SUBTRACTED VALUE 
ADD 4)+, 
CMP (RS)+°(RS)+ ;;MOVE TO NEXT TEN POWER 
BIS. 870 R3 5; CHANGE PARTIAL TO ASCII 
DEC (PE)+ :: DONE? 
4g: “WORD O 
BNE 1$ ;;BR IF NO 
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9998 oS4102 1050 CLRB (RO)+ ; ; TERMINATOR 

12288 054108 1on4t4 RESREG om ; ;RESTORE REGISTERS 

teteay O5u1ig rr CO STNPWR: 145000 +31.0£09 

100 411 32 35632 

10003 4114 0400 160400 ;;1.0€08 

10004 411 765 2765 

10005 41 00 113200 ;;1.0€07 

1Bo08 ai p41 100 547 100 1. 0£06 

{bo08 Bayt 7? 17 +3 

iors Gaiae  bbaéct a — 

10014 Oo4134 023420 23420 ;;1.0E04 

1001 4136 00 0 

10013 054140 1750 1750 ;;1.0€03 

tools evias Sopiae i oc02 

19018 Pedtue pBpb0d : ble 

10017 O541SO o00012 le ;;1.0€01 

10018 054152 900000 0 

10019 054154 000001 1 ;;1.0£00 

10020 054156 000000 0 

10021 O54160 o00014 S$DECVL: .BLKB le. - -RESERVE STORAGE FOR ASCIZ STRING 
100¢¢ -SBTTL_ SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 

ibose tEINTS ROUTINE WILL CONVERT A le-BIT UNSIGNED BINARY NUMBER TO AN 
10026 j XUNSIGNED DECIMAL ASCIZ NUMBER. 

1p089 is ee Pe ee ne 
19030 1 i RETURN t:ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 
10032 

10033 4174 7 : 35 NARY R 

tboss Bevdas Biss, Beqgsg OsHeeH ssBeD: Mey Fish a8, + eee OBINTER ee 

loose Devers Geert Bgson® deh gs taspeo St UE Lee cH RaCTERS 
ioua? qSié re ooo002 MOV (2653, 2c SP)  }PICKUP BOINTER 

10038 OS4e22 000207 RTS PC : ? RETURN 

10039 O54224 000000 oD0000 1S: .WORD 0.0 

10040 -SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 

100%e2 a3 KREGER ELGGRRE EKER REE RR KEK RRA KAAR RRR RAA RAR RAKRKR RRA RARRAKKRAHAKREE 
10943 jATHIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 
1004S *¥CALL ° 

1bou? : yi eget ot ;;FIRST ADDRESS OF ASCIZ STRING 
10048 F E 

10049 ‘ 

10050 4230 010046 SSUPRS: MOV RO.-(SP) ;;SAVE RO 

10051 O54232 016600 oo0004 MOV 4(SP),RO ::PICKUP THE POINTER 

10052 054236 105710 1S: TSTB (RO) :: TERMINATEOR? 

10053 O54240 001403 BEQ 2S ::BR IF YES 


1 ccateielsckedsaiesiscadhaaieiihisiiaieaiaiiaaiiaintciatie silent ccbaecadinaidleemnzes = 


CZR6GB0 RK611 
CZR6GB.P11 


o 3 
: 


4e4e 
246 


4 
4 
4 
4 
4 
Beuses 
4264 
OS4266 


8 


SS 


SESRRSBEEERERSEEEES 
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YPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


es: 


3$: 


. SBTTL 


#’0,(RO)+ 
1$ 

RO 

RO, 3$ 


(SP)+,RO 
(SP)+, (SP) 


RTS 
INTEGER MULTIPLY ROUTINE’ 


5;1S THIS AN ASCII “0” ” 
;3BR IF _Y 


>:BACKUP BY_ “1” 
;;SAVE FOR TYPING 


--GO 

i ;ASCIZ POINTER GOES HERE 
::RESTORE THE STACK 
RETURN 


+ RGR EKER RARER AA RE REA RRLE AA RHRARAEE 


PECALL 
& 


1$: 
2s: 


38: 
4$: 


SS: 


MOV MULTIPLER,-(SP) 
MOV MUL TIPLICAND, -(SP) 

JSR PC, a8SMULT 

RETURN ;;PRODUCT IS ON THE STACK 

STACK PRODUCT 

TOP LSB’ 

+2 MsB’s 

MOV RO,-(SP) ;;PUSH RO ON STACK 

MOV R1,-(SP) ??PUSH R1 ON STACK 

MOV Re’-(SP) ::PUSH Re ON STACK 

CLR -(§P) ::CLEAR THE St KEY 

MOV 12(SP),R1 ::GE THE, Mul IPLICAND 

BPL 1$ ::BR_IF PLUS 

INC (SP) ::SET THE SIGN KEY 

NEG R1 ::MAKE_ THE MULTI ICAND POSTIVE 

MOV 14(SP),R2 ?:GET THE MULTIPLIER 

BPL 2S ::BR IF PLUS 

DEC (SP) js UPDATE THE SIGN KEY 

NEG R2 :MAKE THE MULTIPLIER POSTIVE 

MOV #17. ,-(SP) ::SET THE LOOP COUNT 

CLR RO ::SETUP FOR THE MULTIPLY LOOP 

BCC 4s i ::DON’T ADD IF MULTIPLICAND = O 

ROR RO’ ;;POSITION THE PARITIAL PRODUCT AND 
ROR Ri :: THE MULTIPLICAND 

DEC (SP) :tHAS ALL BITS OF THE MULTIPLICAND BEEN DONE? 
BNE 3$ ::BR IF NO 

CMP (SP)+, (SP) ::SHOULD PRODUCT BE NEGATIVE? 

BEQ S$ ::GO TO EXIT IF_NO 

NEG RO ::YES--SO MAKE IT SO 

NEG R1 

SBC RO 

TST (SP)+ ;;CLEAR SIGN INFO. OFF OF STACK 

MOV RO, 12¢SP) *:PUT THE PRODUCT ON THE STACK (MSB’S) 
MOV R1,10(SP) 33LSe’°S 

MOV (5P)+,Re ::POP STACK INTO R2 

MOV (SP)+’RI ::POP STACK INTO RI 

nov (SP)+,RO ::POP STACK INTO RO 


SEQ 0192 
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ps2 po pe he 
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“nyt 
Sieh 
010346 
O1G5He 
10546 
16646 000022 
016646 O000ee 
016646 O000ee 
016646 000022 
oode 
012666 ode 
Oleb66 o000ee 
giseee Sais 
1260 
picous 
$ieeh3 
‘tps 
SLe888 


010046 
016600 000002 
005740 


MACY11 30A(10S2) 03-JAN-78 


1S 


08:S6_ PAGE 193 
SAVE AND RESTORE RO-RS ROUTINES 


-SBTTL SAVE AND RESTORE RO-RS ROUTINES 
5p REM ERRA RELA RRA EARLY LRAL ARLE AEE A AAA E AE RAL ALARA RA AAALE LAA ES 
1 Nai 


1 i * SAVREG 
!#UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


 xTOP---( 416) 
3% +2---(4+18) 


3% 44---RS 

3% +6---RY 

:% +8---R3 

:#+10---R2 

;*+12---R 

;*¥+14---R 

SSAVREG: 
MOY ORG? CSP) StBUSH RL ON Stack 
MOV Rd» = (86) srt RB gh TACK 
ney -cap} | Hibus ay Oh Sra 
MOV RS’-(SP) tt Buen RS SN Stack 
MOV 2etsP),-(SP) i} SAVE pS OF MAIN FLOW 
MOV 22(5P);-(5P) :? Sav OF MAIN FLOW 
MOV 22(5P))-(SP) ?:SAVE PS OF CALL 
Mov 22(5P)’-(5P) ::SAVE PC OF CALL 

; XRESTORE RO-RS 

Les ne 
“MOV (SP)+,22(SP) 33 STORE PC OF CALL 
roy (apisieeier) IRE TOne Bg OF Seth oy 
MOV (2p}4°55(ep) i RESTOR bg SF MAIN FLOW 
MOV (SP)+/RS ::POP STACK INTO RS 
roy aeisres =H 6Oe Stmek IN 
MOV (Sp) 4’ Re He eTAcK into R 
MOV (SP)+’R1 ::POP STACK INTO RI 
Mov (SP)+;RO ::POP STACK INTO RO 


H HE “TRAP” INSTRUCTION 
;*AND USE IT TO INDEX THROUGH TH LE FOR THE STARTING ADDRESS 
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;*#GO TO THAT ROUTINE. 


STRAP: MOV RO,-(SP) ;;SAVE RO 
MOV 2(SP),RO ::GET TRAP ADDRESS 
TST -(RO) ::BACKUP BY 2 


SEQ 0193 
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oow 


— 
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es 111000 
peuet 016000 054S32 
OS4S16 000200 
4Se0 011646 
4See tases 
45 002 


44 
4727 
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TRAP DECO 


oooo04 o0000e 


nove (RO), RO 
MOV $TRPAD(RO),RO 
RTS RO 
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DER 


SES 0194 


;;GET_ RIGHT BYTE OF TRAP 
; POSITION FOR INDEXING 
NDEX TO TABLE 


$;GO TO ROUTINE 


;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 


i HOE THE PSU BOUIN 


;RESTORE THE PSW 


STRAP2: MOV (SP) ,-(SP) 
nov 4(SP},2(SP) 


-SBTTL TRAP TABLE 


sav eT eS CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


*BY THE ™ INSTRUCTION. 


5 ROUTINE 


éTRPAD: .WORD  STRAP2 


; ;CALL=GTSWR 
ShocHe { }EACC=RocHe 


$3 CALL =SAVREG 


SSAVREG 
acoPis Se 


TRAP+1 (104401) 


TRAP+5 ( 10440S) 
TRAP +6 ( 104406) 
TRAP+7 (104407) 
aestt ios 
4 


0) T 
13} 
315 Rtas 
4414) R 
4415) 


TYPEOUT ROU 


TTY 

TY TAL aN | THLE ROS) 
Gay Rie ae rarer 

TY TAL R (A BER LAST GALL) 
TYPE DECIMAL NUMBER (WITH SIGN 

GET SOFT-SWR SETTING 


TEST FOB, CHANGE IN SOF7-SuR. 
Ooty Wiel ie 
Fearne, ROoRe ROUTINE. 


ee ee 
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TRAP TABLE 


1 


£ 
OLfOW ££ 


oo 
fu 
S80 
Orv tUe elu 
W—-MOtMOoOW 


N1S 


-SBTTL SERVICE MESSAGES 


atid MSG1: -ASCIT 
4 


-ASCIT 
-ASCII 


-ASCIT 


-ASCII 


-ASCIT 


-ASCITI 


-ASCIT 


<«CR><LF>/UNIBUS RKO&B-RKO7 DUAL PORT DRIVE DIAGNOSTIC’ 


<CR> <LF> /CZR6GB07<CR><LF> 
#2228 CAUTION #422#/<CR><LF> 


<CR><LF>7 


SEQ 0195 


<CR><LF>/THIS PROGRAM SHOULD BE HALTED ONLY BY TYPING CONTROL-C/ 


<CR><LF>/OTHERWISE, CARTRIDGE FORMATTING AND, OR THE DRIVE’ 


<CR><LF>/MAY BE LEFT IN AN UNDETERMINED STATE/ 


<CR><LF>/INITIALLY, DRIVES TO BE TESTED SHOULD HAVE: /7<CR><LF> 


<CR><LF>7A. EVEN NUMBERED UNIT SELECT PLUGS ONLY/ 


CZR6GB0 Yee DU PORT LGC TST 
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10258 1 
0eS3 atl 


db bh 
bes 


£ 


SEO 





RVVBM UBER 
BaVoulzon= 





nO 
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feared 


seesegauuasaesasasaaaaees 


ee ee ee ee ee ee ee ee ee te ee ee ee ee ee ee ee eee 
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% 
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222922 
Bune 


" 


ane 
=u 
HHO 
r-NnOoO 


12 1511 

O411 Baseig Bae040 

ree Heats Berese 

Series fees Sait 

O44 116 

101 0040 

051117 ira 7515S 

0305 ei eos 

2 a 

04 10S oO47111 

oe ae Hires ers 

0310 i108 Ms p47ese 

0311 0511 046501 O0S5015 

O03ie 000 

0313 0iS O41012 O2010S MsSGe: 
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2 Sere gee eee creer rey 
os a moll. Be rate ; Ried beatin 
i ee 
me 
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ame ur maa 


kd kd kd kd dd dd md ad nd Od nd nd ad nd a ad ad md ad nd dd dd ad nd dd ad ad ad ad ad a ad ad nd ad ad ad ad fd dd 











SEQ 0207 


M16 
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Cegen a is oe Ge ees ee 
ae F A So45 8o= 500 

ide ies deren —— 3 
=e Fiat oon Sree user Boone 
<a jesad Siar ae ran agaseos peat 
— eee eae cat Ss § pegzzuz 
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\ 
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a uJ 
ae | 
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“ oO 
a z ~*~ 
cq > “ WW 
a az fa | w 
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wor- 6a84 3 3 wo=30 pe O00 wouruau- na 8 woo- 
“aT <4 ree han hend SN Ktetetet te set i) W-a-<« nen bane) 1) 
Raz? 2 8 alas Bes BESS Say Games Sauaess ees 
usa 
bz 


fs aay =e Saks A25e Aang sas 
ee i Beoe gaasvire Yee a esa aca fais : 


ashph geese goss =a-ehoe Sp eats apigass bagauaar shoes 
Pare Of gerd Sozee avery gee ges aes 


eeuenman waar Haenrumer nna 


BESBEEBBEBBEBSESSEESESSSEESES 


SARA UU AU NERERERER EE NWI ONO UEERERRRI YOY Pop pRRRRERREOOEES 


at he eee et et ht et hth ee et ee ee hee et he ee hee ee eee ea hee hee he hee ee eee ee hee, em ee hee hee, hen hee hee heme hare, heanhaam, ham hore here. hee hoes ee hoe hee oe) 
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+ ® 


ee te ee a ae ae ee ae a ae ae ee am fee ae ee be be an ae ne an ae ne ee nn ene ee ee es ne ae eee De ee Pe be be Pe Pe ee be be Be 
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te 


se ee ee ee ee ee Be be ee ee Be Be ne Be ae ee ee hs bn ae ee Be ee 


SaBtencos 


QOO00000000 


bb bb bh hh he 


OOO NOUN £ Wr 


SORCRRS RRO NO NR TENeS 


oOo 
£ 
ro 


z 


Cor 
——— 


Fanty 


eeresuee 


Hi 





bo hs be ee 
fur 


= 
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tetas 
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DATA HEADERS 


DH4O: 


OH41: 


DHYe: 


DH43: 


DH44: 


DH4S: 


DH4S: 


DHS1: 


-ASCIT 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


COl 


Bagel 08:S& PAGE 209 


-ASCIZ /WORD#® HEADER WAS SHOULD BE/ 


/DURING RECAL COMMAND/ 


<CR><LF>/CHECK BUFF1 SIGNAL BEFORE & AFTER MUX/ 


ZON SECTORS 0,2,4,6 OR 8 CYL 410 TRACK 2/7 


/AFTER RE-SEIZE PORT MID-WAY IN NORMAL TIMEOUT’ 


/FORMAT & ALL READ-WRITE TESTS WILL BE BYPASSED/ 


/BEFORE RELEASE WHILE HEADS UNLOADED/ 


/MSG A & B IN RKMR2 & RKMR3 RESP. ARE INVALID/ 


“AFTER SEEK TO SELF COMMAND/ 


SEG 0209 


a eS SS A 
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ee 


232 | 


pie! Lila is BERPAPRARS A Le cae Rade Lid Gale ee B: 


a en ae Be ae ae ae be Be be ne be Be bo be be be bee be Pe be bane ae ae ae Pn ae ae Pee Pan fe Pe Pee an be be be be he be ee 


ee ee ee ee ae ee ee ee ee eb he ee ae ee he ee ee ae ee ee ee ee ee ee he ee ee ee 


000 
wo 
N 


020106 
? 


042510 
OS3440 
000060 


101 
0114 
21 
11 
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00S324 
00S346 


001346 
o00S344 
0653i4 
O08 24 

46 
001346 


008314 


00S324 
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DATA HEADERS 


DHS6E: 


-ASCIZ /CYL #® HEADER WORD 0/7 


-SBTTL ERROR OUTPUT DATA 


OTl: 


DT3: 


DT4: 


DT6: 


DT7: 


OTS: 


DT9: 


. EVEN 
STESTN SERRPC 
1,HMRe, HMR3, HER, HDS, HCS1,HCS2 


HC, HBA, HDA, HASOF , HDC, HPOS , HPAT 
STESTN, TRAPPC 

STESTN, SERRPC, FRCYL, TOCYL, CALDIF 
HMR1,HMR2,HMR3,HER,HDS,HCS1,HCS2 
HWC , HBA, HDA, HASOF , HDC, HPOS,, HPAT 


STESTN, SERRPC,WDO2,WD1 
HMR1,HMR2, HMR3,HER,HOS,HCS1,HCS2 


HWC, HBA, HDA, HASOF , HOC, HPOS, HPAT 


STESTN, SERRPC,WOCNT, HOWD, TEMP 1 
HMR1,HMR2, HMR3, HER, HDS, HCS1,HCS2 


HWC , HBA, HDA, HASOF , HDC , HPOS, HPAT 


STESTN, SERRPC, TOCYL,FRCYL, CALDIF 
HMR1,HMR2, HMR3, HER,HOS,HCS1,HCS2 


HWC , HBA, HDA, HASOF , HDC, HPOS , HPAT 


STESTN, SERRPC, TOCYL, RHTAB 
HMR1,HMR2, HMR3, HER, HDS,HCS1,HCS2 


HWC , HBA, HDA, HASOF , HDC, HPOS, HPAT 


SEQ 0210 


a 
Be 


38 


SELL 


Wr 


ee ae ee ae ae ee Be be ee ee be bm sn be bs Be be ae be a be ee ee fe nn ee ee es ene ss ee en Pe ee ee ne ne ee en be be Be 
ee ae a ae ae ee ee ae ne Be ee ae be fe ae ee Be be an be en ae et ee Penn ea: ee ne ns en ee as ee se eae se ae a ne ae ae ene ae pe fe 
ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee ee ae ee = ee ee ee 


OR Oba VOTE 








EO1 
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Pll 03-JAN-78 08:46 ERROR OUTPUT DATA 


005346 
404 ODT13: STESTN, SERRPC,E.AO,E.B0,E.Al,E.81,H.A0,H.B0,H.A1,H.B1 


O00S344 HMR1,HMRe, HNRS, HER,HDS,HCS1,HCS2 

005314 

005324 HWC , HBA, HDA, HASOF , HOC, HPOS, HPAT 

00S346 

OOS4O4 OT14: STESTN,SERRPC,E.AO,E.B0,E.Al,E.B81,E.A2,E.82 

005412 

905370 H.AO,H.BO,H.AL,H.B1,H.A2,H.Be 

eth HMR1,HMR2,HMR3,HER,HOS,HCS1,HCS2 

00$324 HWC , HBA, HDA, HASOF , HOC, HPOS, HPAT 

00S346 

eae DT1S: STESTN,SERRPC,E.AO,E.B0,E.A1,E.81,£.A2,E—.82,£.83 
42e 

005370 H.AC,H.BO,H.AL,H.B1,H.A2,H.B2,H.B3 

005376 

o0S344 HMR1,HMR2,HMR3, HER, HDS, HCS1,HCS2 

005314 

005324 HWC , HBA, HDA, HASOF , HDC, HPOS, HPAT 

005346 


.SBTTL ERROR DATA FORMATS 


BOVERLOVH SBOE Oe-O0O VOU £w- ODBIERLOS 


DF 1: 3 
.BYTE 2,0 
He 
.BYTE 7,0 
DH3 
-BYTE 7,0 
OFe: 1 
-BYTE 2,0 
DF3: Ss 
-BYTE 0,0 
OH1 
.BYTE 2,0 
DH11 
.BYTE 2,0 
DHe 





BYTE 7,0 


CZR&GBO RK611 DU PORT LGC TST 
CZR6GB.P11 03-JAN-78 08:46 


2 


i 


ee ee ee ee ee ee he ee ee ee ee ae ae ee ee ee Be ee ae be oe ee 


DOVER LOH BDO VEN LOH Owe VOU LON Ow Wo LO Owe 
: 


38 
: 


8 
es 
Re 


ee ae ee ee ee ee ae ee ee be ee be ee en ae ee ee ee ee ee ne Be ee Be ae ee ae se be Be bee Be be ee eee 


fururonnrn 


ooo 


000 
ooo 
000 


000 
000 
ooo 
ooo 


ocd 
ooo 





MACY11 a aie 
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ERROR DATA FORMATS 


DF4: 


OFS: 


DF6: 


DF 10: 


DF 14: 


DF 1S: 


7,0 


SEO 0212 


fs 


-Pll 


be ee 
ee 
WONT UI CWO 


fururorurorurururururururoru 


QRRZSRES BRNO Oe cor 


fururorururorurururorururufo x 
he 


eae eae 
aay : 


a 
é 


ru 
Le 


ee ee ee ee ee ee ee be be be ee a ne ae ee ee ae ee ae ene a en ne ee es en se ee ee ho Be ee ee 
_ CONES 
=i 
tT 


ee ae ee ee ee be Be ee ee he ee ee Be ee ae a ee ae Be ee be be be ee be Be ese Bee ee 


furor 

roo 

WtwW 
o 
o 
o 
fu 


007 
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000 
000 


000 


000 
000 
ooo 
000 
000 


000 
000 
000 
000 
000 
000 
000 
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ERROR DATA FORMA 


DF 17: 


DFe0: 


DFe1: 


DFee: 
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TS 


7,0 
7,0 


0,0 
0,0 
2,0 
7,0 
7,0 
0,0 
2,0 
2,0 
7,0 
7,0 


0,0 
2,0 
0,0 
4,0 
4,0 
7,0 
7,0 


0,0 
2,0 
0,0 
6,0 
6,0 
7,0 
7,0 


SEQ 0213 
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Ee | 


066672 
74 


PA, 
ee 


EA pA oh cA A 
@ 
ae ae 
= Be 


N 
wo 
N 
— 
o 


VeA ZIONS 


3 


rurury 
tore 


rururerurory 
Bow Yoru 


By 
ron 


ee ee ee ee ee ee he he ee he eh 
ee 


7 e 
8 Cb6744 


= 


00 
006300 


ooo 


oS6S51 
001114 
7400 
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ERROR DATA FORMATS 


OF23: 7 
“BYTE 0,0 
bH1 
.BYTE 2,0 
bH28 
-BYTE 0,0 
0H31 
-BYTE 7,0 
bHe9 
.BYTE 7,0 
ony TE 7,0 
6H3 


ven -BYTE 7,0 
Ta 1" Ieee es 


ah oR PEA TYP ROUT INE 
NTR Y IR Pp ERR 
#RETURN RTS 


 UMMSSPOUTWOE UREA Uco!™PY PNP DacR The SELLS. TERUN, Te 


i MENTRY 19, OEF INE WHAT INFORMATION IS TO BE REPORTED CONCERNING 


REE KRRERRERRRRAR REAR KAR A RKAA REAR AKARR RRA RRARERHREREAA KARA ARKH KKE 
+YPERR: SAVREG 


MSG19 ;PORT A_OR B 
me SITE, INTER ER REE 
Ber fd ;FORM INDEX FORE ERROR TABLE 
ASL BD 
ASL RO 


SEG 0214 


OOD 


ee bh beh be heheheh RY 


peeeeaaees oe 


2B 


|? hehetetet abet etentetet 
be ee 
WN OWONOU L£WeO 


furu 


ee ee ee he he be be be be he he he be hs be ee he ee 


WWWW) 
ul 
wn 


RK611 DU PORT LGC TST MACYI1 30A(10S2) O3-JAN-78 08:56 PAGE 215 SEQ 0215 
PPh BY TaN-76 08:46 TYPE ERROR ROUTINE 
746 0627 005470 1S: ADD #SERRTB,RO ;FORM ADDRESS OF ERROR ENTRY 
ated O18037 066766 - HOV (R0)+, 28 faa EM Por NTER. ae ton 
es TO44O1 001205 TYPE , SCRLF TYEE Ae CARRIAGE RETURN LINE FEED 
Beeses 104401 TYPE OR MESSAGE (EM 
558 7 067004 5: noone On0;4 4g 1EM POINTER GOES ~_s 
BeEsz4 Beas : BEG lib BRANCH IF THERE ISN’T ONE 

067008 1Buup, = CULe0S Tyee CRLF EE SO ener 

me 4g WORD O :DH_ PO NTER GOES HERE 
7008 S$ MOV (RO)+,R1 :GET D NTER 

be i0 yt BEG 20s : BRANCH fe THERE | ARE NONE 

eerels Grateg Sov Hoven ge POC t 

sole pistes MOV (RO)+;Re *STORE NUMBER OF DH’S 

Derose opsics art Oe ONDENT - 
TYP CRLF F 
be7030 ee —- 10S: nove taoos RS ;GET & STORE NUMBER OF DATA WORDS 
105720 TSTB (RO)+ :BUMP PAST FORMAT W 
eerie BBica? ls ibe Hapa exig HES HEADER 
067040 013146 11S: MOV a(R1)+,-(SP) ; PUT FIRST DATA WORD ON STACK 
067042 104402 TYPOC YPE 
067044 605303 DEC R3 MORE DATA WORDS 
067046 001403 BEG 14S : NO-BRANCH 


JOl 


SEQ 0216 
PORT LGC TST MACY11 30A(10S2) 03-JAN-78 08:56 PAGE 216 : 
soe a Be TON 78 08:46 TYPE ERROR ROUTINE soon 

11326 067050 104401 067200 TYPE SpAcee i TYPE SE 

11352 Be sbee 3 14S: DEC Re !MORE DH’S? 

il oOED 3431 ; BLE 20$ !NO-BRANCH 

ii opee ai 001205 TYPE SCRLF i 

ti TST 2(RO ;ONLY_A DH IN THIS REQUES 

11332 067078 a BEQ ; YES-BRANCH BYPASS INDENT 

11 74 toa COM Rie j INDENT? 

HES 5 10441 M5 SPACE2 tYES-TYPE SPACES 

ii Der biz0 pes ete 15S: Tee tRo)+, 16S GETNEXT DH POINTER 

11338 pestis 90900 16S: TORO 0 OH POINTER GOES HERE 

1138 cate ooi003 02 Be 1S HYES-BRANCH POINTER 

11342 067126 oy _ BR rt as :SEE IF END OF DF BLOCK 

HES BE PRT ones ais; Ale tar ETE 

ii3ue 10S : NO-BRANCH 

1t34e 067136 rien 067200 17S: OPE gercee !YES-TYPE SPACES 

it3ue 06714 bod733 BR Os : LOOP 

11348 067144 104414 20S: RESREG els es Soe 

{ , T DRV 

11350 067 146 932777 010000 111764 BIT #5W12, OSWR SRE IF ABOR 

ii3e2 Devise p34939 001103 oo0024 cn SERFLG, #20. iELSE SEE IF HAVE 20 ERRORS 

11333 Besiee Breebe RESTORE STACK PTR 

{i3ee bE5458 natetg poe eaS MP Sop eh 8 TO NEXT DRV 

11356 

11357 067176 000207 25s: RTS PC papaenaes 

067200 O20040 000 SPACE2: .ASCIZ/ 7 ; 

ii3e6 ; ODT-1i -- VOOSA 

11361 ; DEC-11-UODPA-A-LA 

11363 , T 1969, 1970 

1138 : DIGITAL EQUienent CORPORATION 

ii3ee , -ENABL ABS, AMA 

11367 067204 " EVEN 

11368 — 067264 25.460 P aoneil 

11390 SOROS R1 : %1 : NAMING 

{1399 002 R2 . “2 : — CONVENTIONS 

11372 000003 R3 = %3 

11373 000004 RY s “i 

Hee BRS oR 

11309 ezeai4 ES : {57776 ;STATUS REGISTER 

11356 . TOR LOCATION 

113e0 aurea 9. IvEC = S40 PRIORITY Ty MASK ~ STATUS REGISTER 

11381 oo00020 0:TaT = 20 !T-BIT MASK 


rr 
. eS 


KOl 
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CZR6GB.P11 03-JAN-78 08:46 TYPE ERROR ROUTINE 
11382 000003 TRT = 000003 ;TRT INSTRUCTION 
11383 000006 RTT = 000006 ‘RTT INSTRUCTION 
11385 : RS IS USUALLY CONSIDERED SAFE, THE CURRENT ADDRESS WORD 
11386 : RESIDES IN IT. AFTER A A BREAKPOINT IT Ts SET TO ZERO, AND SEARCH 
11387 : OPERATIONS LEAVE IT RANDOMLY FILLED. ISE, IT SHOULD NOT 
11388 : BE USED EXCEPT FOR JSR’S AND THE SORRERT HDRES POINTER (CAD). 
11390 : 
11391 
11392 
11393 177562 0.RDB = 177562 ;R DATA BUFFER 
11394 177560 O:RCSR = 177560 ;R C/SR 
11336 177566 0:TOB = 177566 :T DATA BUFFER 
11396 177564 O.TCSR = 177564 :T C/SR 
11398 : 
11399 : INITIALIZE ODT 
11400 : USE 0.O0DT FOR A_NORMAL ENTRY 
11401 ; USE 0.0DT+2 TO RESTART ODT - WIPING OUT ALL BREAKPOINTS 
1140e : USE 0.0DT+4 TO RE-ENTER (I.€. - FAKE A BREAKPOINT 
livos bezsee pnoute 0.007: oe ORT RESTART. 
11406 72 BT 3749 177776 067244 O.ENTR: MOV ST,0.UST RE-ENT -- SAVE STATUS 
11497 067276 013737 OO00016 177776 MOV 0. TVEC+2,ST SET UP ER OCAL STATUS 
11408 067304 10737 067242 MOV PC.0.UPC :FAKE THE PC 
11408 7310 re 070442 J 0.6Ki 
11411 067314 012706 067224 &.STRT: MOV #0.URO, SP 
11412 7320 010637 067240 OV SP.0.USP iPaKE ba eee? 
ate pesase 47 070650 O.RST: JSR 9-ASTI 1 COE RE point TABLES 
1141S 067332 013777 067262 177716 MOV 0’UIN,90.ADR1 ;REMOVE The "BREAKPOINT 
11416 7340 : 04 067246 nove 9. PRI, RM ;GET 9 ODT PRIORITY 
Hiss Sevess |Sea0y oe ES rm 
11420 06735¢ 0437 177776 MOVB R4Y,ST :STORE IN STATUS 
LE Brae Batiee ee Pte 
1153 Be5ae6 fhenss GOVOOF O70352 |e fhe | ONpTORTTT iO Pon proceeD On “O° 
11425 067374 012737 000340 o00016 °  #MOV 80.STM,O.TVEC+2 ; ; STATUS WORD TO TRT VECTOR + 2 
11426 7402 012737 070432 O00014 MOV #0.BRK’O.TVEC  ;PC TO TRT VE 
11427 067410 000447 ; BR 0. RALL ?CLEAR BREAKPOINT TABLES 
ti4s9 : SPECIAL NAME HANDLER 
11430 ; DEPENDS UPON THE EXPLICIT ORDER OF THE TWO TABLES 0.TL AND 0.URO 
11432 067412 004S37 071072 6.REGT: JSR S,0.GET ;SPECIAL_NAME, GET ONE MORE CHARACTER 
11433 067416 012704 071315 MOV #0. TL,RY :TABLE START AD 
11434 Ob7ce ieoges O.RSP: cHPe RO cRad+ its aNye t THE CORRECT CHARACTER? 
11436 7426 022704 071323 CMP #0.TL+0.LG,R4 51S THE SEARCH DONE? 
11437 067432 101373 BHI 0. RSP :BRANCH IF NOT 
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7434 ttt 177770 
704 


£56 
We 
23 
x 
£ 


067224 


071306 


06 it 7 071216 
74 10S 
067470 O61e0e 

006202 


£LEfLLLIL 
KG 

ae 

22 

tn 

— 
<£ 
£ 


. ? 
on 


SoReDS 


067756 


paar 
HGoDue 


FEES 
PRERRRRRRR 


PP tatatacucutatts 
fetal tot ad 


ores 
£nvo 
- 
<= 
oO 
o 


& 


> 067256 
O4le 
54 ? 071332 


VOR FZIN SSS 


Gere BFE7BR ponnDD 
SO 


78 O06 004S37 071150 
7 06 4 7 071250 
61 O06 005002 
Gress Bie BLAKE 
rere 290 000067 
tress 65008 


0 


Boeen Lore 
“ 


ee ee ee ee er bb 0 bb Bb bb bb bh bb be pe be pe ep 
et ee ee be be ee ee ee be ee ee ee ae ee be be ee ee 


SEESSLCCSCSCSSCSC ESE SC CCS LCC ESC ICL 


$2 67620 DOse02 
93 O0676ee 000760 


MACY11 SC jOSS 


067256 





0. 


0. 


Overs 


0. 


Oo oO Cre eres erwses 


O3-JAN-78 08:S6 PAGE 218 


TYPE ERROR ROUTINE 


SP1: 


SP: 


8 0. SCAN 
UB #0.7L-7,R4 
B 0.SP1 


BIC #177770,R0 ;MASK OFF OCTAL 
a. 
ADD #0.URO,R4 5 EO oe 


160, FIND RO NEXT CHARACTER 


+ HANDLER - OPEN INDEXED ON THE PC 


-ORPC: JSR TCLS 
HOU pe’ Es ;CURRENT ADDRESS IN R2 
ADD are, Re ; COMPUTE 
ASR Re Pt ONE BIT TO CARRY 
BCS Q.ERR NUMBER 
ASL 2 EST Gre D 
rst (Reds AND INCREMENT BY TWO 
MP Bobs fe OB TRISH UP 


B HANDLER - SET AND REMOVE BREAKPOINTS 


-BKPT: TST Re 
BEG 


RALL: 


BR 
EV #0. TRTC,O.ADR1 


;IF_NO NUMBER TYPED 


0.RALL REMOVE . eaerorne 


poe oo IF 
ASL RY ?REST ORE ONE BIT 
MOV R4¥,0.ADR1 :SET A BREAKPOINT 


0. Oct 
R ;CLEAR BREAKPOINT 
0.0CD 


COMMAND DECODER - ODT11 


REGISTERS RO-R4Y MAY BE U 
REGISTER RS WILL BE EONS TDERED SAFE 


. ERR: 


Bepi: 


. SCAN: 
c 


eto 8 Ev a ne 


J " 

0.CRLS i TYPE. aa + F>* 

2PR Ba RY CONTAI THE CONVERTED OCTAL 
FOUND FLAG 


SER CO GET : Be ONE See RN TN RO 
MP #'O a 'Sonpare WITH Beet 4 
BHI 0.CLGL ; CHECK EGALITY IF NON-NUMERIC 
CMP #'7,RO ; COMP WITH ASCI 
BLO 0.cLGL HECK LEGALITY IF NOT OCTAL 
BIC 8177770,R0 CONVERT f 0 BCD 
ASL RY IN 
SL RY R4Y 
ADD RO, RY :PACK THREE BITS IN RY 
INC Re iRe HAs NUMERTC FLAG 
BR 0. SCAN AND TRY AGAIN 


SEQ 0218 


CZR6GBO RK611 DU PORT LGC TST MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 219 SEQ 0219 
CZR6GB.P11 03-JAN-78 08:46 TYPE ERROR ROUTINE 


11494 Oe7624 095001 O.CLGL: CLR R1 CL LEAR INDEX 
11496 2 i 0 1 071301 O.LGLI: cHPe RO, 0-LGCH(RI) ;00 THE CODES MATCH? 
114g? Berea Bob20r FFe Ri ; Sey Inge x Fo FOR NEXT SEARCH 
14 1 000014 CMP R1, #0.CLGT 315 THE SEARCH DONE? 
11499 pores apo BHIS Q.ERR OPS! 
1128? 46 O.LGL2: ae i iE Bry B Y TWO 
11502 067650 000171 067654 IMP 30. LGDR(R1) :GO TO E ROPER ROUTINE 
a 77 S.LGOR: O.WR . # OPEN WORD 
ik Berbse Be7/3e 8: cher ; § Rea TER — 
Lies Bereee Borah gaect FBS Rt 
11 4 0:0P1 ; <LF> MODIFY, CLOSE, OPEN NEXT 
11509 067666 067462 0:ORPC ; © OPEN OTT tebe INDEX - PC 
it 10 0676 070002 0:BACK ; ¢ OPEN PREVIOUS 
il i 067672 07001 O.OFST ; O OFFSET 
11513 067674 07007 O:WSCH ; W SEARCH WORD 
11514 0676 O.EFF ; SEARCH EFFECTIVE ADDRESS 
11816 77 731 O:BKPT ; BREAKPOINTS 
1151 77 0354 O:PROC ; ROCEED 
11812 0 O.LGL = '-0.LGDR ;LGL MUST EQUAL 2X CHLGT ALWAYS 
11818 + PROCESS 7 - OPEN WORD 
11 S702 6.WRD: TST Re Sle" @tHERd ii os IS NON-ZERO 
11 7 4430 BEQ 0.WRDA Skip. 
11 771 i MOV R4,RS 
11524 067718 006205 Q.WRDL BSR RS aR baove! ONE Ue “iy CARRY 
118ee berrle 0308 ; : pce Re Re CRRRE Bit 
11 77 il MOV S,RO ; CONTEN S OF W 
11528 067722 Oo4s37 071006 JSR B. 9. CADV Te nN AND TYPE QUT acaAD 
11268 BeoosR Bags Ad 000001 O.WRDA: BR si Be 190, Back LOSER BTT” 
{ie33 067734 000766 BR O.WRD1 :GO BACK TO MAIN-LINE 
11533 : PROCESS CARRIAGE RETURN 
11535 067736 004737 071216 8.CRET: JSR PC, 0. TCLS ;CLOSE LOCATION 
11536 774 OSE? 000001 IS I’RS *CLOSE EVERYTHING 
11537 7746 0007 é 1 Seb ;RETURN TO DECODER 
11538 : PROCESS <LF>, OPEN NEXT WORD 
1154 004737 071216 b6.0P1: JSR PC,0.TCLS ;CLOSE PRESENT CELL 
11842 855 2g 05725 : te ATF HSENERATE NEW ADDRESS 
11643 067756 004537 071242 0.0P2: JSR 5,0.CRLF u R LF> inane 
ti2ue eee pAGe99 071006 JSR S, 6. CADV : i, a out ADDRESS 
tieqe Berra bodsey | O71180 ‘fan ae Ses 
11848 0000 0744 BR O° WRDIL ;GO PROCESS IT 


ceneggo 


ae ab 


Aa ea A 8 


anos 


~OBaNOUS 


WIUIUIUT UI UU UT UU UU 


uu? 


BEER oR DRDO DDD 


58 
O000000 


ee ee ee eh ee ee ee ee ee ee eh eee hee eee OY 


REP 


R6GB.P 


Seas 

oo00 

INSES 
PagReogs 
N 


ope 
tae 


N 
Benreom 


SEVP ENOR LVS 


DU PORT LGC TST 
03-JAN-78 08:46 


071216 





067252 
067250 


067254 


071242 


NO1 


MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 220 SEQ 0220 


TYPE ERROR ROUTINE 
; PROCESS ¢, OPEN PREVIOUS WORD 


b. pack: JSR PC,0.TCLS - 
TST -(RS) ;GENERATE NEW ADDRESS 
BR 0.0P2 :GO DO THE REST 

; 


; PROCESS 0, COMPUTE OFFSET 


6.0FST: ASR RS ;GET LOW ORDER BIT 

BCS 0.ERR2 tERROR IF CLOSED 

ASL :RESTORE WORD 

MOV #’ ,RO :TYPE ONE BLANK 

JSR 5,0’FTYP + AS A SEPARATOR 

SUB RS,RY ; COMPUTE 

DEC RY ; 16 BIT OFFSET 

MOV RY, RO :TYPE A 

MOV RY’ Re ?SAVE RY 

ISR 5,6. CADV :NUMBER IN RO - WORD MODE 

MOV Re, RO 

ASR RO ;DIVIDE BY TWO 

BCS 0.0F1 :BRANCH IF ODD 

ISR 8,0. CADV : NUMBER IN RO - BYTE MODE 
0.0F1: JMP ’DCD1 ;ALL DON 


? SEARCHES - SMSK HAS THE MASK 
$MSK+2 HAS THE FWA 


; $MSK+4 HAS THE LWA 
é.eFF: Inc Rl is ;SET EFFECTIVE SEARCH 
O.WSCH: CLR Ri ;SET WORD SEARCH 
O:WDS: TST Re :CHECK FOR OBJECT FOUND 
0. ERRI: BEG O.ERR ne s ERROR F NO OBJECT 
MOV 0.MSK,RS ;SET MASK 
COM RS :AND COMPLEMENT IT 
0.WDS2: CHF Re ,0.MSK+4 ; 1S, THE SEARCH ALL DONE? 
mov are, RO ; GET OBJECT 
BNE Q.EFFL. *BRANCH IF EFFECTIVE SEARCH 
oy ORL PAS BSARE oF 
BIC (SP)+,R3 ’ - IN A VERY 
BIS RO,R3 ; FANCY MANNER HERE 
BI RS;R3 *AND RESULT WITH MASK 
0.WDS3: BNE 0. WDS4 ?RE-LOOP IF _NO MATCH 
MOV R4.-(SP) *REGISTERS R2,R4Y, AND RS ARE SAFE 
JSR 5,6.CRLF : TYPE <CR,LF> 
MOV Re, RO :GET READY TO TYPE 


| lal _ 


CZR6GBO RK611 OU PORT LGC TST 
CZ2R6GB.P11 03-JAN-78 08:46 
il 1 

11608 1 711 
11 166 1 

11hl 1 071006 
HBL Beni Sueees 

tie a5 

13 8 

r1St8 1 

1164 1 We 

11618 1 

11619 14 005203 

HEEL Bese BEES rrco 

as 

HESS Seses bina? 
1162S 0063 

HESS Gries Reet 

if 3 O70e4e Becgo4 

11636 070244 735 

11632 

1ie3s pr pets 109037 071271 
1ie3e 0254 103617 

11638 of 010437 7242 
HES fie Fie mess 
11640 37 070740 
11633 05037 071270 
1164 ose 20 
11643 07031 17737 176742 
11644 070316 ff EE 071332 
1164S 070324 012600 

i1oue 0703 12601 

11647 0703 12602 

11648 070332 012603 

Hes bee Sle 

116S1 B7034 Bi seoe 

Hess Bere Slee Sve 
11654 Broa DOBOOE 

11655 

11656 

11657 

11658 

116539 070354 105737 071271 
11660 070360 O01645 

11661 O7036e 105037 071271 


MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 221 
TYPE ERROR ROUTINE 
JSR S,0.CADV ;_ TYPE_ADDRESS 
MOV ry +80 :SLASH TO RO 
JSR S,0:FTYP : TYPE IT 
MOV are, RO :GET CONTENTS 
JSR 0: CADV : TYPE CONTENTS 
MOV ($P}+,R4 ; TORE RY 
O.WOS4: TST (R2)+ : INCREMENT TO NEXT CELL AND 
BR 0.WDS2 : RETURN 
O.EFF1: CMP RO,R4 : IS (X)=k? 
BEQ 0.WDS3 :T IF E 
MOV RO,R3 :(X) TO RB 
ADD R2;R3 + (X) +X 
INC R3 
INC R3 ; (X) 4X42 
CMP R3,R4 21S (X)+X+2=k? 
BEQ 0.WDS3 :BRANCH IF EQUAL 
BIC #177400, RO :WIPE OUT EXTRANEOUS BITS 
nOVE RO,RO +EXTEND SIGN 
ASL RO s MULTIPLY BY TWO 
INC RO *ADD TWO 
INC RO 
ADD Re, RO ;ADD PC 
CMP RO; RY :I1S THE RESULT A PROPER REL. BRANCH? 
BR 0.NDS3 
: PROCESS G - GO 
6.G0:  CLRB 0.P ;DISALLOW PROCEED 
ASR RY :CHECK LOW ORDER BIT 
BCS 0.ERR2 tERROR IF ODD NUMBER 
ASL R4 >REST WORD 
MOV R4,0.UPC SET UP NEW PC 
177776 MOVB #0°STn,ST :SET HIGH PRIORITY 
JSR 5,0.RStT ;RESTORE TELETYPE 
O.TBIT: CLRB 0'T j CLEAR BOTH 
067244 BIC #0. TBT,O.UST :  T-BIT FLAGS 
067262 MOV 90.ADR1,O.U *SAVE INSTRUCTION 
176732 MOV O.TRTC,90.ADR1 REPLACE WITH TRAP 
0.G02: MOV ($P)+,RO > RESTORE 
MOV (SP)+'R1 : 
MOV (SP)+’Re : THRU 
MOV (SP)+'R3 
MOV (SP)+;R4 ; 
MOV (SP)+/RS : 
MOV (SP)+'SP * AND SP 
MOV 0.UST>-(SP) : AND STATUS 
MOV 0: UPC’ -(SP) H A Cc 
O.RTIT: RTT :CHANGED TO RTI FOR 11720 AND “0S 
: PROCESS P - PROCEED 
: ONLY ALLOWED AFTER A BREAKPOINT 
6.PROC: TSTB O.P ;CHECK LEGALITY OF PROCEED 
BEQ 0: ERR1 :NOT L 
CLRB 0:P :CLEAR PROCEED FLAG 


eee ei eee 


ane 





SEQ 0221 


C0e 


CZR6GBO RK611 DU PORT LGC 44 MACY11 30A(10S2) O3-JAN-78 O08:S& PAGE 222 


SEG 0222 
CZR6GB.P11 03-JAN-78 08:4 TYPE ERROR ROUTINE ; 


B62 070366 905702 Ts1 Re s MAS COUNT SPECIFIED? 
Bes BPBa7E 9493395 856843 177776 O.PRI: Hove Sy ST icc WIGEMBR GAN 
667 970410 1hg737 990340 177776 0.C1: MOV a ahet ri ; "Big He IPRIORITY 
6639 O70422 052737 O000020 067244 BIS Ny rer, 0.UST 

070430 000735 BR 0.G02 


AKPOINT HANDL 
OR TAT BREAKPOINT CAUSES 0.BRK TO BE ENTERED, WHICH SAVES 


VARTOUS 9095 AND ENDS tHE THOS QUT at. a BREAKPOINT WAS LEGAL, 


OO KKK MONT 
3d orRZan—3 


070432 012637 067242 -BRK: MOV (SP)+,0 ;PRIORITY IS 7 UPON ENTRY 
3 7 rey v (SP) 4.0: UST ; STATUS AND PC 
4 SO -BK1: JSR : I GISTERS 
a8Tsis 071270 TS18 0: 5 me . : CHECK FOR T-BIT SET 
1 067262 176574 MOV 8: Mik @O.ADRI  } MOVE AKPOINTS 
070462 105737 067246 TsTe 8 ee lbh PRIORI TY . 
: *PICK R UST IF S 
070398 iis? sospinite BR” 0 Bea’ ON 4 OMPUTE THE PRIORITY 
067246 0.BK2: 0.P; OTHER] PICK UP ACTUAL PRIORITY 


SHIFT "a ORDER BITS 
: INT Pon ORDER 


ce 
- 
iG) 
N 
Na 
OS 
oO< 
wo 
P) 
Mm 
az 
it) 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
ee ee ee ee te ee ee ee ee ee ee ee ee ee ee be ee ee ee 
NEOOOKOOK KOO 
BSBVFR L028 


— 
I 
ae 
nt, 
55 
D 
2D 
a HNN 


070512 RORB R iT TON 
.BK3: V T ;PU T 1 BE it ATUS AWAY WHERE IT BELONGS 
, ices £354 eames Move 6-UPC, RS T POINTS TO THE TRT 
eRe as Oe zoyD uM Re8 up Saher R 
ross BEssde CMP RE+ 8- UP Ey + CORPARE He UE List 
1417 BEQ 0.b2 + JUMP FOUND 
06 ISR 2+9-SVTT ‘SAVE TELETYPE STATUS 
ovine JSR 0: CRLF 
701 piers MOV ¥O.BD RY ;ERROR, NOTHING FOUND 
703 ‘ 831638 JSR s.0. t ;OQUTPUT “BE” FOR BAD ENTRY 
0000 #0: TBT,0.UST ; CLEAR UT ANY POSSIBLE FAKE T-BIT 
708 BGT 0:C1 ; JUMP IF REPEAT 
308 1052 rata mca | Oop OS sheet SounT 10 3 
oil as 7 a JSR 5,9 SvTT :SAVE TELETYPE STATUS, RY IS SAFE 
ois paacoo B7iis5 JSR 5,0:FTYP TYPE "B” 
714 013700 MOV 0’ADR1,RO GET ADDRESS OF BREAK 
315 OWES? miata’ ISR e 0. cADV ; TYPE AQDR ESS 
71 pOs005 CLR 6 LEAR CAD 
717 0137 067554 IMP 0.DCD 60 TO DECODER 


CZR6GBO RK611 DU PORT LGC TST MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 223 SEQ 0223 
CZR6GB.P11 03-JAN-78 08:46 TYPE ERROR ROUTINE 


, i SAVE REGISTERS RO-R6 IN INTERNAL STACK 
11721 070650 O1 071266 b.svR: MoV (SP) +, 0. Xxx s PICK STER FROM STACK AND SAVE 
117 ae O16e37 067240 MOV SBP3*aSs : SAVE Begs CFR a ORES 
117 12706 067240 MOV #0°USP, SP ‘SET TO INTERNAL STACK 
4 Ql Vv S,-( B) ; SAVE 
By Rates} fenusTens 
070672 01024 Mov Re, (SP) + THRU 
Bape 071266 v 0. Xxx, -( SP) : PUT SAVED REGISTER ON STACK 
746 TST -(SP) 
070704 o00200 RTS RO 


; SAVE TELETYPE STATUS 


070706 113737 177560 071272 é.svtt: move O.RCSR,O.CSR1 ; SAVE R c/SR 
O7oree 188037 155284 valesahes nies: 8: Ree” iaCY ER ENABLE AND MAINTENANCE 


NNN NNNNNNNANNNANAN 


SSBF REO Siw VOU 


it 

i 

il 

11 

11 

11 

11 

il 

it 

ii? O77 32 son 37 brine isk. 6.0: ELF l~wWtmuep 

11740 07 pon3 : ’ ’ 

113 . ; s 

11742 : RESTORE TELETYPE STATUS 

11744 07 71242 8.RSTT: JSR RLF -<CR,LF> RE RESTORING 
112 8 0s737 ose 85 iste 8: FeSR ;WAIT READY 6 PRINTER 
11747 7 004 77 T #4 .RCSR : K YF ON READER 
11748 Bo OES B35c85 mapa chen BEG ake icrre REABY bor IF NOT BUSY 
11730 186% 177560 T Te 0.RCSR WAIT READY 

11 tT 37 071272 177560 O.RSE1: MCVB 0.CSR1,0.RCSR RESTORE 

11752 970776 113732 071273 177564 nove 9.CSRe, 0. TCSR : THE STATUS REGISTERS 
11754 : 

11756 : TYPE QUT CONTENTS OF WORD OR BYTE WITH ONE TRAILING SPACE 
11757 : 

11758 071006 o1024%6 d.cADV: MOV R2,-(SP) ;SAVE Re 

11759 071010 o1e704 071331 MOV #0; BUF+6,R4 :BUFFER START ADDRESS 
11760 071014 0612746 O00060 MOV #’0,-(SP3 ;CONSTANT ASCII O 
11761 O71 10002 O.SPC: MOV R ; GET 

1176¢ 71 2702 177770 BIC #177770, Re : OCTAL CHARACTER 

il 71 1602 ADD SP,Re *CONVERT TO ASCII 

11764 0710 110244 MOVB Re, -(R4) : STORE IN BUFFER 

1izee Ooi aeRO a Needles 

11767 071036 006200 ASR RO : THREE WHOLE PLACES 
11768 071 020427 071324 CMP RY, #0. BUF +1 + DONE? 

11766 ort 01365 BHI 0. SPC : NO 

11 71 177776 BIC #177776,RO ‘GET LAST BIT 

11771 071052 ADD (SP)+,RO sCONVERT TO ASCII 
11772 071054 110044 MOVB RO, -( RY) ;AND PUT’ IT AWAY 

11773 071056 012703 071331 MOV #0’ BUF+6,R3 *LWA 


CZR6GBO RK611 
CZR6GB.P11 
11774 
11775 
11776 071070 
11777 
11778 
11779 
11780 
41781 071072 
| 11782 071076 
| 11783 071100 
ves Seti 
| 11786 071114 
11787 071116 
| 11788 07112¢ 
11789 071124 
| 11790 071130 
| 11791 071132 
| 11792 
| 11793 
_ 11794 
1179S 
| 11796 
11797 071134 
11798 071136 
11799 071140 
11800 071142 
11801 071146 
| 11802 
11803 
11804 
1180S 071150 
11808 071154 
11 071156 
| 11808 071162 
11809 071166 
| 11810 071176 
11811 1174 
11812 071200 
Hele O718te 
11815 ps 150 
11816 O7lele 
11817 071214 
11818 
11819 
11820 
11821 
11886 071216 
11823 071220 
11824 O71lee2 
11825 071224 
11826 071226 
11827 071230 
1i828 071232 
11829 071234 
| 
| 
| 


DU PORT LGC TST 
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00S746 


071062 O04S37 071134 
1 012602 


177560 
177562 
071150 
177600 
000040 
000073 


071150 


177564 


177566 
ooco04s 


oooo44 
177564 


177566 


MACY11 30A(10S2) 


TYPE ERROR ROUTINE 


Ces er cree 


Core ee werwrws 


Onvrereres O 


oo 


5,0.TYPE 
(SP)+,Re 
RS 


03-JAN-78 08:56 PAGE 224 


; TYPE WHOLE STRING OF CHARACTERS 
;RESTORE Re 


GENERAL _CHARACTER INPUT ROUTINE 
CHARACTER INPUT GOES TO RO 


-GET: TSTB 
BP’ 


RTS 


0.RCSR 
.-4 


;WAIT FOR 
3 NPUT FROM KEYBOARD 
;GET A CHARACTER 


;ECHO CHARACTER 
;STRIP_OFF PARITY FROM CHARACTER 
; IGNORE NULLS 

;CHECK FOR SPACES 


iI NULL 
;CHECK FOR SEMI-COLON 
; IGNORE THEM IF FOUND 


GENERAL CHARACTER OUTPUT ROUTINE 


ADDRESS OF FIRST BYTE IN 
ADDRESS OF LAST BYTE IN R3 


. TYPE: CMP 
0 


MOVB 
JSR 
BR 


TYPE ONLY ONE 


-FTYP: TSTB 
PL 
MO 

.TYP2: TST 
L 


-TYP1: RTS 


CLOSE WORD OR BYTE AND EXIT 
UPON ENTERING, Re HAS NUMER 


- TCLS: ASR 
B 


-CLS1: RTS 
«tees TST 


R3,R4 
0. tYP1 
(R4)+,.R0 
5,0.F TYP 
0! TYPE 


RY 
’ 


”(R3)> (RY) 


;CHECK FOR COMPLETION 
; EXIT WHEN DONE 

;GET A CHARACTER 

; TYPE ONE CHARACTE 
;LOOP UNTIL DONE 


CHARACTER (CONTAINED IN RO) 


;CHECK STATUS 

;WAIT UNTIL READY 

; TYPE ONE CHARACTER 
31S CHAR TO BE FILLED? 


;NO 
;YES, INIT THE COUNT 
;GENERATE NULL FILLER 


;POP STACK 


tc FLAG, RY HAS CONTENTS 


;GET LOW ORDER BIT 
; JUMP IF ALREADY CLOSED 


; IF NO NUMBER WAS TYPED THERE IS 
;NO CHANGE TO THE OPEN CELL 
;STORE WORD 


;POP EXTRA CELL FROM STACK 


SES 0224 


ceneeee eli OU PORT LGC "E MACY11 30A(10S2) O3-JAN-78 O8:S& PAGE 22S SES 0225 


ZR6GB 03-JAN-78 08:46 TYPE ERROR ROUTINE 
11830 071236 000137 067540 IMP 0.ERR ;AND SCREAM BLOODY MURDER 
1183¢ : O.CRLF - TYPE <CR,LF> 

118 : O:CRLS - TYPE <CR{LF>* 

1183s O7 12He 012703 071277 }. CRLF: nov #0.CR+1,R3 ;LWA <CR,LF> 

11 3$ O71 1 705 071300 O.CRLS: MOV #0.CR+2,R3 ;LWA <CR,LF>#* 

11836 1254 012704 071276 O0.CRS: MOV #0.CR,R4 : 

11838 G7 1g60 S37 071134 JSR 5,0. TYPE : TYPE SOMETHING 

il : 

tiBqe 071266 o00000 $.xxXxX: .WORD O ; TEMPORARY STORAGE 
11843 071270 000 0:T: :BYTE O : T-B G 

11844 71271 000 0:P: ‘BYTE O ;PROCEED FLAG = : IF PROCEED NOT ALL OWED 
1184 071272 000 O.CSR1: .BYTE 0 !SAVE CELL - R C/SR 
11847 851855 000 0:CSR2: [BYTE 0 :SAVE CELL - T C/SR 
11849 ‘ . EVEN 

11850 071274 o4eS502 0.BD: :WORD “BE 

11852 071276 015 6.cR: .BYTE O15 5 <CR> 

11853 071277 O12 "BYTE O12 > <LF> 

i a 071300 o0S2 eg ed ;  # 

11 071301 057 6.LGCH: .BYTE ’7 ; 7 

11857 071302 015 BYTE 15 : CARRIAGE RETURN 

11 071303 O44 ‘BYTE °§ ; 

11858 971304 107 "BYT 'G ; 6 

11 71305 Bie [BYT Ole > <LF> 

11861 071306 137 ‘BYTE ‘¢ ; + 

11862 071307 136 "BYTE ’¢ fe 

11863 071310 117 ‘BYTE ’0O : 0 

liges Oriais «to ‘BYTE ’E ; g 

11866 513ts 102 ‘BYTE ’B : B 

11867 071314 120 -BYTE ’P ; P 

11868 000014 O.CLGT = .-0.LGCH ; TABLE LENGTH 
118 071315 123 8.7L .BYTE ’S ;D0 1 

11871 071316 120 ‘BYTE ’P :NOT 2 

11872 071317 115 ‘BYTE °M :CHANGE 3 

11873 071320 000 "BYTE O : THE 4 

11874 071321 000 ‘BYTE O ORDER S 

11875 071322 102 ‘BYTE ’B : HERE 6 

11876 000006 0.LG = jd 

11878 071323 sincere 6. BUF: Z a 36 CHAR. BUFFER WITH 
11880 071331 040 ‘ -BYTE ; ; TRAILING BLANK 

11882 : : 

11883 071332 oo00003 6.TRTC: TRT ; TRACE TRAP PROTOTYPE 
11885 :THE ORDER OF THE FOLLOWING ENTRIES IS CRITICAL 


, GO2 





CZR6GBO RK611 DU PORT LGC TST MACY11 30A(10S2) O3-JAN-78 O08:S& PAGE 226 SEQ 0226 
CZR6GB.P11 O03-JAN-78 08:46 TYPE ERROR ROUTINE 

11886 ; 

11887 . = 0.00T-40 

11888 O.URO: O ;USER RC 

ii? 0 $ Rl 

ll 0 : Re 

11891 0 : R3 

11892 0 ; RY 

11893 0 5 Re 

11894 7) O.USP: QO ;USER S 

11895 067 O.UPC: QO ;USER PC 

11896 067 000000 0O.UST: QO ;USER ST 3 

11897 067 000007 O.PRI: 7 ;ODT PRIORITY re 

11898 067 000000 O.MSK: O ; 

11899 7eSe o000000 0 ;LOW LIMIT 

tier 7254 000000 0 sHIGH LIMIT 

11902 : BREAK POINT LISTS, ADRI = ADDRESS OF BREAKPOINT,CT = COUNT, 

11903 $ UIN = CONTENTS 

11904 

11905 067256 9000000 6.ADR1: O 

11906 067260 900000 O.CTs 0 

11907 067262 d00000 O.UIN: O 

11908 oooo01 . END 


CZR6GBO RK611 DU PORT LGC TST 


CZR6GB.P11 


03-JAN-78 08:46 
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SEG 0227 


ASE 
ACOW] 


; 


Pe 
“4 
— 
| ae anel nel ae 
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7744 
660005 
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Seee 
S96 


es97 


2 
3742* 


26088 


$490 
95338 


7269 7732 78S4 8261 8281 8308 8337 


39003 


95328 
| 
| 
| 


CZR6GBO RK611 DU PORT LGC TST 


CZR6GB.P11 
TMO 77 
BA = B85 0 
BA1I& = 000400 
BA17 = 001000 
| BITO = 1 
bee 
= 
BIOs = 
= 
Bt Tos = ppBeS 
BITOS = 000040 
BITO& = 000100 
BITO7 = 000200 
BITOs = 000400 
Bties = 1000 
BITi «= o00e 
BIT10 = 002000 
BITi1 = 000 
BITle = 010000 
BIT13 = 020000 
BIT14 = 040000 
BIT1S = 100000 
BITe = 00 
BIT3 = 000010 
BITY = o00020 
BITS = 000040 
Bits = 0001 
BITe@ = 0004 
= 
Bits = eat 
BPTVEC= 000014 
BSE = 900200 
BSERR 0014Se2 
BSEe 002276 
Ee 003276 
BYP 044260 
BYPCER 001456 
CALADD 001362 
CALDIF 001354 
CCLR = 100000 


CFMT = 010000 
CHKFLG 001460 
CHKMSG 044274 


eae ana Ot a oeecenenmmennrennsmessranssensesee 
he 
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7817 
13978 
13838 
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NOOO eee eee 
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: 
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De he ee ee beh 
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WOWNDOO0O-MuW 
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NUT 
NWO 
WOWOr-o 
ouIMw~n 
BE SE OTE 
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MACY11 30A(10Se2) 
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@ 

wr 
eS 


@ 
Oo 


WLWWWWWWWWWWW) 
ee Fore 
FUG) CUI 


LWwWw 
Poo Ome 
LOWONCUWNOW 


ve] 
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a ee ee ae ae ee ee be bn ee ee ee ee ee ee 
hated 
Hat itets 


Sane 


z WWWWW) 
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7605 
141le 1431 
9244 
S252 9320 
2756 
1403 1422 
1404 1423 
1405 1424 
1406 1425 
1407 1426 
1391 1408 
1433 2757 
1415 1434 
118 1435 
141 1436 
1399 1418 
tier hie 
1353 1421 
7410% 
7407 7426 
8753 gesl 
3972 3987 
4100% 8478 
8727 8729 
4840% 11060 
4259 4299 
17 S741 
7238 7278 
4058 4142 
4032 4360 
5933 6066 
6s81 
8456 B4s3 
4347 4370 
4953 4982 
5378 5399 
6000 6051 
7230 7257 
g04e 


2755 
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3858 


Pe bebe eee 
£ EEE CL 

WUNuio’ 
WONOUID 


eee 
c= 
VMI) 

Ntr-OWO 


3860 


One £0 


OCrrno 
—OULNGW 


8117 


8944 


9eS93 


9304 
1523 


3848 


8755S 


SEQ dees 


9230 
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CKCERR O4S064 8210 8214 8225 8230 84788 
CKSWR = 104407 S229 9293 9319 101948 
CLEAR = os 13688 4302 4436 459 4757 8s2 sois 51390 5620 sss 7113 7241 9026 
CLKOF 1 4402 4474 4561 463 6584 6656 6746 6829 8304s 8919 
CLKON 047114 4385S 4S44 6573 664S 6740 682 88sss 8915 
CLOCK 047154 3766 88sgs 
CLRFLG p38 3684 
OE = 0010 14218 
COUNT 001366 26408 42e2% 4e4ex 4328% 4¥384% 4461 44Q7% 4543 4700% 4749% $479S* 4844 
4e98% 4937% 4989% 5038 S073% Slie* 5164*% S2l3% S2eS3% S335% S643*% S868* s9s4«* 
6117% 6162 6219% 6553 6572 658S* €S86 662S5* 6644 6657# 6658 6739 6747# 
6748 682e% 30% 6831 Barat Bare" 7161% 7289 39 Sage 8916 
| CR = 000015 le41a 9401 4 10205 10213 10215 10219 10229 10238 1024S 10253 10260 10265 
102639 10275 S$ 10285 10e 10e96 10305 10313 10320 10328 #£=«=1033 10340 1 
1035) 10.33 10359 i063 1037 10374 #10378 10380 10384 #& 103 10391 10392 10396 
1040 104 10414 1041 10423 10429 10447 104SS 10475 10483 10546 10S73 10580 
10s8S 105 10602 10623 10639 #=10807 #+%10815 10844 #10877 +3 1099S 
CRLF = 000200 le4es 937 9411 
CTO = 904000 1sg8 8484 
' CYLADD 001360 Ss 4294 4741 4836 7478% 7482 7598 7602 7607 8620* 8621* 8622e% 8623* 
8624 862S* 8643 BE44# 8B64S* 8646 8647 8648 
| CYLOIF 001356 26348 4291 8604 8605* 8606* 8607 8608* 8609% 8610 8612 8630* 8631 8632 
| 8633% 8634* #8635* 8636 8638* 
| DATAD 1434 e664" 74793 7596 7603 7621 
| DATAOL OO1436 26658 7479% 7481 7596 7599% 7603* 7606 
DATAL 001440 ebbbe 7599 
DATCMD 043430 7365 7487 7613 7782 7303 81908 
DOCK = 100000 14278 
Oo = 900020 14358 
DCPAR = 020000 13888 
SP = 177570 12488 es 3651 
Bee BOReS tho} 3730% 3927 4135 
DDUMP 0 27618 97% 
| OF1 066314 2 le 2818 2824 2835 2841 2846 3074 3114 3119 111368 
| DF 10 066444 Spek Seae Bh 2866 871 2893 sve 2308 5 75¢ 23984 29394 29399 3034 
08 3104 109 3144 16 3174 3179 3184 3189 3194 3199 
3204 3603 3214 3219 3ee4 3229 3249 3254 3259 3284 3309 3334 339 
3344 34 3354 3359 3364 3369 3414 3419 3434 3439 3444 3464 3489 
3544 3559 3594 111878 
OF 14 O66464 3459 111968 
OF 1S 066504 3424 4e9 44S 34S4 3564 112068 
DF 17 066524 3569 B4 112158 
DOFe 066330 28681 111438 
DF20 066550 3014 it¢ % 
DFel S74 2303 231 2918 2929 2934 2939 2g44 234 2954 23s9 23964 2969 2974 
2979 19 4 3029 3039 3044 049 30S4 3059 3064 3069 3079 os4 
3124 129 3134 3139 3149 3154 3159 3164 3264 69 3274 3279 3289 
3294 239 3304 3314 3319 3324 3329 3374 3379 3384 3389 3394 399 
3404 409 3434 3439 3504 3509 3534 3539 112368 
OF 22 066630 3004 30093 112518 
DFe3 O&6664 112668 
DF3 066334 2876 2887 111468 
Dre DeeaPa S2au 14336" 3244 111648 
DF& 066420 3479 3484 3549 111758 


7 > 
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DH1 062540 
DH10 063272 
DH1il 063321 
DHle 063336 
DH13 063427 
ate i2 
1S 4 
pits 3574 
DH1 063723 
DH18 063747 
DH19 063774 
DHe O6eSSS 
DH20 064017 
DHel 064052 
prisg 064100 
3 064132 
DHe4 064162 
DHeS 064227 
DHe6 O64eS2 
DHe7 064302 
DHes 064333 
DHe3 064343 
DH3 62S 
DH30 4353 
DH31 064405 
DH32 064432 
DH35 4464 
Be 
DH39 064720 
DH4 76 
DH4O 0647 
DH41 pepoge 
DHY4e2 5103 
DH43 065154 
DH44 06S233 
DH4 06S31e 
DHY 065356 
DHS O62e74e 
DHS 1 065433 
DHS6& O6S466 
DH& 062771 
DH? 063024 
DH8 06317 
BP Bk 
DISPLA 601142 
DISPRE 00017’ 
DLT = 100000 
L O44e4e 


OLY 
DMD = 000040 
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i 
MVOWWWIUT 
NOWO ~ ee 
NOWW Cue on 
MOrNWWOWwrNNT 
ee x 


| 
j 
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Rebbe bebe be 
oO he 
@O~frrur~T— 


Bas be be bee be 
Ber 


2816 
11177 
3437 


3157 
3032 
108938 

11152 


109028 
2e9Se 


3659 


7914 
83508 
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2822 2833 
11189 = 11208 
10834 

3162 108668 

3077 3082 
11189 911170 

2957 3182 

3282 3357 

2890 2916 
e911 e382 
11270 
11274 
11161 11172 

3067 3412 
1le7e 
2932 2937 

3262 3267 

3327 3337 

2977 3447 
109918 

3132 3137 

3302 110398 

9274*  9296* 
8353 


2839 
11219 


3227 


11181 


3332 


3362 


3177 
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2844 
11227 


3532 


11191 


3347 


3372 
3027 
3017 
11193 
3427 


3047 
3277 


109748 
10981% 


3307 


8 
11238 


3537 


11200 


109068 


3377 

3037 

3022 
11202 
109398 


109488 
3417 


3392 


1088S# 


11210 


3382 


3557 
109308 


1l2le 


3492 


3397 


11221 


3387 
3562 


11223 


3497 


3402 


3117 


11231 


3477 
109258 


11233 


3502 


3407 


34S7 


11246 


3482 


11248 


3507 


107958 


SEQ 0230 


107728 


11261 


3487 


11263 


109538 


mo 


Loe oA | 


CZR6GBO_RK611 DOU PORT LGC TST MACY11 30A(10S2) O3-JAN-78 08:56 PAGE 232 SEQ 023 
CZR6GB.P11 03-JAN-78 08:46 CRO g REFERENCE TABLE -- USER SYMBOLS , 
DOCMD 043372 4236 4263 303 437 s 471 4758 4807 4853 4390) 4961 1 4 
5136 et S268 S276 5350 5 5439 S447 5473 5S2 $531 Beg 2094 
om be he Re be fe i fe fe fe iS 
} 
Bi S 2234 e24 b28e 4 e 14 e528 e9e4 6362 6406 6414 6426 
6434 644, 6474 482 6535 6543 6607 6615S 6686 66 6717 72S 769 
i a a eee 
7e86 ae) 5703 7711 572 F6ee 583 Fa48 1 738 7995 gi 79s 
8s093 893 9027 
DPAT1  O01442 26678 
Bes’? « Baa oe 
BRav Byai 92 42e9 4254 7 82 4356 4387 4392 4403 4494 4515S 4S46 4551 4562 4707 
4780 4802 4875 4905 4941 4993 5080 116 5168 S260 S342 5S04 729 
5929 6062 6169 6226 6SSS 6575 6627 6647 706 6734 6789 6 6898 
ORDY 200 3g 7146 7183 7165S 7274 7281 7293 7736 7751 7888 7873 83268 
DRIVS 6 434 7658 3853% 3866* 3883 3899 3929% 3948 40See 4119 80eS 8120% 
DRIVO 005436 27718 3746 3855 3901 4014 8101 
DRIVi 005440 e77e8 
pats oos44e 2773 
DRIV OOS444 7748 
pa ive 446 7758 
IVS 450 7768 
DRIVE 4Se 27778 
DRIV7 OOSYS4 27788 
DROT = 000040 14368 
paged z Naveed 14158 
VMSK= QO000 13958 3922 4035 
DRVPTR O00134e ebebes 8 3746% 4126 4146% 
osc. = 040000 144e8 
DSWR = 177570 12478 2527 3650 
DTE = 010000 14e48 
DTYE = 000040 14178 3954 40S 
OT1 0655S le esos e8i1 281 2823 2834 2840 284s 28s0 esss 2860 2865 2870 2891 
2897 2307 23923 983 2988 2393 2998 3033 3073 3088 3093 3098 3103 
108 his 3ii8 3433 3168 3173 3178 3183 3188 3193 3198 3203 3208 
3543 su 28 3238 3243 3248 3253 2S8 RA 308 333 
3443 3448 34S 463 3488 SY 3558 356 356 3583 3 110S28 
OT13 066050 2302 sais 23! 3988 33 338 2343 3 295 2958 3323 236 2973 
2978 018 302 3028 ae a003 itt 3053 078 3063 3088 ae 2082 
ue Bs Ue ue ye us 2 ue By EB Ba BO Re 
3403 3408 3493 34938 3503 3508 3833 3538 111008 
DT14 066130 003 3008 111108 
OT1S 066220 lllels 
OT3 O06S5Se e880 110598 
DT4 065556 3483 3548 110608 
OT& 065624 e875 esssS 110688 
DT? 5670 345 110768 
ee: ae 1188s 
D.ACLO= 000100 14918 
D.BRHM= 000100 14788 4277 4312 4341 4410 4H44E 4500 4569 4605 4727 4767 4822 4862 
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4924 
5311 
s9le 
7123 
9036 
| D.CART= 000400 14808 
4924 
pall 
3735 
9036 
D.DDT = O00400 14668 
0.DOOR= 000200 14798 
cart 
S311 
s7is 
ghSe 
D.DRA = 000040 sag3¢ 
$20 
5980 
pF3g 
8 
Saa8 
7881 
O.DRDY= oO00200 14838 
49 
5309 
3 ts) 
lel 
DRO 20000 43 a 
B- Bae = rete y ee 
22. 
73964 
p-FLT = 000200 11258 
* = WU ae 
B:Fap'= BO2000 1dgoe 
D.HDFL= 200 15068 
D.HDHM= 0 14778 
D.IDAE= 000040 14908 
BC TMD= Be0000 igizs 
- = 
B:toaD= B10e09 tags 
- = 
B: Arpve BOBOBe 15118 
D.OFF = 002000 14688 
O.PAR = 001000 14948 
O.PIP = 00 14718 
D.PLO = ono 15108 
-REV = 4 14838 
-RTZ_ = OevUOL 148S8 
.-SECT= 000020 15038 
0.SKI = 002000 149S¢8 
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D.SPIN= 010000 


D.SSP = 000020 
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99999 
<cc-+w 
<tFas 
wrew 

oO 
nnnun 

[=] 

£ 

j=) 

=] 


D.WCUR= OO0040 
D.WGAT= 000100 
B- HiLE = 004000 
-WRL_ = 004000 
O.XERR= 001000 
ECCW = O2e0000 
ECH = 000100 
EMTVEC= 000030 
EM1 Bee Ose 
Bi? 5771 
Mil 05777 
EMle 060041 
EM13 060077 
EM14 060121 
EM1S 060157 
EM16 060266 
EM17 060331 


EM19 060373 


EMe OS7111 
EM20 060414 


EMe21 060435 
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3635* 


2868 
3106 


105518 


105638 


2936 
105668 
283s 


3196 
3166 


3026 
2346 
3036 


2956 
2905 


3201 
3176 


3041 
2966 
3046 


2976 
3426 


3206 
3216 


3051 
3056 
3061 


3066 
3451 


4 
SYMBOLS 


3211 
3256 


3lel 
3076 
3131 


3081 
3486 


3226 
3336 


3146 
3126 
3156 


3136 
3541 


3251 
3356 


3261 
3151 
3271 


3161 
3561 


3331 
10S29% 


3286 
3266 
32%6 


3276 


; 105698 


3411 


3314 
3291 
3221 


3301 


3446 


337! 
331% 
3381 


3326 


3556 


3391 
3376 
3401 


3386 
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EMgS3 
ERRVEC= 
E.A0 


E.Al 


E.Re 
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pee 
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SRLS 
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oe 


WENBER WSs Lu 
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062220 


005410 


0CS414 


Wd 
erates 
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105738 
1058S 
idee 
ipeios 
106188 
10632% 
3441 1064S8 
104478 
106528 

4 3181 
106898 
3191 3366 
3221 106668 
106708 
ihebhe 3546 
ibesss 
3281 3431 
3436 107008 
3241 104638 
1070S 
104668 
107108 
aed 
ipaese 
107218 
107248 
107288 
107318 
ieee 
107458 
3237 3242 
104998 
107608 
3648 3649 
$235 9236 
4275% 4310% 
476S5* 4482e0* 
S198% Seecx 
S767%  #S806* 
655e8 30% 
7881# * 
4277 4312 
4767% 4B2°e 
88 * 4s 
S769% Os* 
6S560* Sass * 
7883* See 
4279% 4314% 
4949 4978% 
S374 5395* 


B03 
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3361 
106628 


106748 


10693 


3416 


3461 


106558 


5715 


4Se4% 


S771 


* 
11100 


4S69* 
Sleex 
5630* 


5810# 


SEQ 0234 


CO3 
coRece Pil OS-saN-76-Ga:ae 6 °Y*? SBRGES Ree ERENCE TABLE =~ USER SinBOcS eelpnee: 


Sous §=6Sazee §=SOaee bles «SLE «(SESos «(Seats «(Seeds «Sens «Sodas «= Seees «= RGSue «| SMBs 
gies: =G55Rs 9bSaa* gacby toi 11 83t 
E- Ba eats eras O37 on uy lis 4340 4366 4409% Qyuce 4YUSgs uw F % 4726% 4766# 
coats «deeds «6 uabde 6 Suex 0 uae «6 ugges «coeds «Sodas «= SCG8e «STZis «S1S0* Sivas 199% 
S223% * 5310% 7ix 392% S4S6% 5487% 5543% SS8ex x Bix 5S712% 576a% 
cso7x Ses4e 5911 5993 44% 6126% sue becle 63 Zee guSSe  GNSbx 6559 
Le Ag cd cSeae Gap" % x * *% 47 % b1% + B82 
1% * 8B * 84 * 111 11110 11121 
E.B1 oos4ie e7u7e 4e7ee 4313" 4a4ee uge7e WNILe | 4447e 4SOlx YSeGx 45708 460s 728% 47588 
eose5 costs : : : y BGe8s Beas Btecs = ebsik y BsiRe 259h% 
Sso09# p= oH 995% goes $1 a Sh * & $3378 78% 4S7 x 498% 1% 
& 097% & Boa x ae Uge * % J 
Eo B402% B446 * 111 ite” 11;3t 
E.Be2 OOS4YI16 27498 4280 a e u % 4413% YUUOe 4S03% 4S7e% 4 % 4770% 4BeSxe 4Ye5S*% 
4927% 49S0% 4979 * * poses 5 Gee siese 5154e 517% x 27% S293% 
sick 23635 | Bouoe Pt s 6bldoe Pacge | ESaSe pease puese eS0be © eSb ae 45 3Beae 
cise cance 5338 Tih foize 7531 763e% 7651% 776S* 7804 x gesx 7969 
E.83  oosee 27518 42ele 4316" dio, tse. «so ausoe «4SO4x «= «4S73" ««4G09% «47318 «47718 «0 4826" Hebe 
Go26% 4951% 4980% S003* SO29x SOS3* S103 5Si2o* 5155* 5178" Se04* Seces*e Segu* 
15% Foe Ze BMGie  54See | 5GuBs 5s87% 56348 coaex 5717% 5773% S8iex 5859x 
16% % Se 6131% 6195%  6256% Ox 6381% 6460% 6501 6564* 6636" 7100 
Zie7e 7eege 7eG5e 7a7B  7513¥ 7632% 7633% 7652% 7766% 7805% 7887% 7926% 7970 
40S, BYIL# * iilel 
.DDT 012776 G16ix 4167% 44i7Se 4 4524 = s«@381 
FATT!  O44006 4272 «6693502Ss—s(7027.—~Sss«iwS277# = 8897s: 920 
FATT2  O44106 218 4751 HRI HBG H913, 4965 soss S140 S477 #«©95S702 6330 6450 6891 
6983 708 7213 «7955 ~«=s« 83058 
FATT3 oO44214 99 4558 6581 6653 6743 6826 83378 98340 
FC 013000 41768 
FCP1 013002 41778 
F O4b222 86748 8682 
FHDTAB O46344 87078 
FLGTST O46574 8750 8754 87698 
FL 046276 86918 
FMTE = 14168 
FMT1 001430 26618 8717% 8718% 8719% 8724 
FORM 047736 9050 # 
FORMAT 001426 26608 8717 #87 
FRCYL 001344 26298 4743% 4e38* 11060 11084 
FRDOY. 043466 3894 391 4021 §4030 8182 8193 8205" se08 98575 
FROY1 043534 82198 8222 BS61 
FTITLE 001340 2bo4s 73 075% 
A 043274 3716 36s 81438 
CIN’?  p4aae ig | Bisee 
GNS = #uxRES sai i1BiBe" io1e7 10188 10189 10190 10192 10194 1019S 1019 10197 10198 10199 
Sorat * Gueiae ine’ gy 4 7157 7285 7367 748 7 779 791 gees 8292 2s 3313 
oo 6 dD BRR, «odBA BES? 4283S Bese 8 Bag gaie 
GSTAT1 oO4S210 8371 98517" 
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TATe O4S47 3 8s41 8s49 85578 
GFour = Toasae gos 101888 


re” ARES sripe Sesot GGL HIER HOS HIGG? HBR HBR) HIT HITE Hag 1130 
Bie OR et ae sass Sere" 8 


HcS1 005314 4 8 aei3" ag8 33 i 
S01S# x 1 S135 143 5190 7% S27S* S$349%  #$=%$357 


=A 


4 
S438# S446# ive" 


Poe 
a 
g 

Y 
ER 


PA 
we 
2 

FERS <—_ me 

NN 

ow 

“~ 
NNNN 
NNN 
ze 
J2~ 
JN 
N 


7827% # 7847% 7875 7 7950 7986% 7994 79% % 
gigi, gears peers : gees ce) gags 842s SA%Bx 84205 
110S3 11062 11070 11078 1 11094 11104 11115 11127 
HCSe2 005316 27098 3976 ei 1083 4067 4070 7618 8238 8489 8493 
ll 110 110 11086 11094 lll 1111S =11127 
4 poeast get 4 8241 8878 11056 11065 11073 11081 11089 11097 11107 11118 11130 
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ROLIN = 104411 8096 9887 101968 
RDOCT = 10441 8143 8156 101978 
oes 908 98799 
ROTAB tA) eb64s 
RDY = # 8205 8219 
RECAL = 13 3718 Yebe 7136 726 90i0 
RESREG= 104414 99339 101998 11348 
RESVEC= rag 4 3308 
RHE 0461 86638 
AB OO1666 738 7780 7814 7901 7935 8806 geos 8812 881s 11092 
RKASOF= OO0016 13538 7141 7269 7732 7854 B2e44 8281 8308 8337 
RKBA = OO0004 13488 #3804 7356% 7400% 7418* 748 1% 7606% 8240 
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47S4% 4YBYU9e S012 Si87% SS16% S617% S741% Se4ex S941 6074% 6710 6738% 6793% 
6821 bl 6903 981% 7110% 7138% 1S50# 7238 7e66% 7278% 7503 77228 
cose oRaae 7863% 8180% 8s191# 8219 8237 8519% 8526 7 BS46* 8SS9# 
RKCSe = 000010 13508 3692% 3906% 3910% 4019% 4023% 4233% 4234" 4260 4261% 4300 4301% 
4434% 4443S" 46993 4594" 4755 4756% 44850% 44851% #5013# O14# Si8s*e 5189 Sebe* 
S264e % 71% 73% S344# 346% J4B# *  §355# 433% zest 437% S44e% 
S444"  $§517% 19% Sele  SS26# * SS6* 5558% SS60* 65% S56 * S97 
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g03* Po} % lex oS i poser * 1# 6711% 3 1S* 6720 ee 
6763% 6765 67% 67728 se 6 6798% 6803 *  6861% 3% 6865 
6870 5876 x ers % 913% 5313s 953% Sapae % % $3 Lae 996 
* % oos* % % oss x x os 11% llex 181% 183* 
718S* 7190 192% 7239% 7240% * 7328% ##7330% 7335% 7337% #736e% 7363% 7453 
7455S 74S7# fey H 7464 7483 7S44% 7S46% 7548 7553 SS* 7569* 7571% 7573 
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77eS# 7775% re * 7896*% 8245 
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RKECPT= 000032 13608 3815 8250 
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RKMRe = 000034 13578 le 23 8228 8247 
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suo = 900002 12878 1297 
SwOe = o4 10868 1296 
SWwO3 = 000010 1e8Se 1295 
= 1ea48 =§61294 
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| = 0001 lese8 1292 
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Swe os 00 12908 
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4036 4715* 4eiOe 49l2* 4964* 5087% 5139 5S476x 5701% 6329% 6449* 6890" 6982 
| 7084% 7el2e% 7730% 774ex 7851% 7864% 7954% 8181* 819e% 8207% S822ie 8278* 8283 
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8679% g1* * 8727 8730% 87 936% 89464 11076 
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TRAPPC 001334 ebels 9103¥ 11059 
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40> = gpnnns fey A 

T10 001400 eb478 3893 3907 3916 4020 4029 4271 6890 6982 8181 8560 8574 9019 

T100 001406 26508 6934 7026 8996 

TSO 001402 2648s 

TS00 pat eG 26498 

TSOOO 1410 26518 

Ts0000 O014le ebSee 3914 4027 4715 4810 4912 4964 5087 5139 S476 $701 6329 6449 
7084 7212 7730 7851 7984 8192 

UFE = 000400 14018 3960 4063 


se Sn 
4 
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| 
| CZR6GB.P11 03-JAN-78 08:46 CROSS REFERENCE TABLE -- USER SYMBOLS | 
ITB 00S464 27838 3749# 4124" 42208 4234 YOu 4O4Bs 4261 4301 4326% 4353 4382 4390 
- 4398 4423 4430% 4435 4485 4512 4S41% 4S49 4557 4S8e% 4S89# 4594 4698" 
ries ple ose PF te essa" - ott S040 S071# he S166% 216) are 
| ease* Bcbse ecb) Bess 2672, e278" 22395 2223" 2205, 222d" 2222, 2289" Bdaes 
= 2e0s* oO ei pase 2a68 pooes S669 scale S743% S744 S7S2s S753 
4 a * ES Te s Bb2ee 4 
6032 xe 6076# 608S# 6086 6097% 106* 6107 6139% 61602 6172s 
e173 pisis pise ts peeat paeee pseg* Ante page. 6410 eGit ech, e430 
Baage pala. Pare Eurex G7s Geace ecSSe OY Bedde bese r 
polls He 4 peice Ss peels ad * 6691 6704* 6712 6713 6721 
bese e poe Pars ooik S abe p x% oe? aE ge gous 95 pgi35 
4 6997# 88 % 683 S3ens ge 063% 6 ll2 1 144 
71S51% 7163% 71828 7 7191% 719 7240 7268 727e% 7279% 7291% 7327% 7328 
7336% 733 7363 74S4% 5 7463% 7464 7S4S% 7554 7555S 7570% 7571 
aXe S| 4 SF a <9 4 47 A 4 6 SS 
gree 8307 8374 8376 8378 8380 8507 8Sel1 8530 8539 B8S48 8578 90093 
UNLD 00S27 eb8b6s 3741% 688S* 6938* 6940 6977 7030% 7032 8980 9000* 
UNLOAD= 00000 13698 6887 6979 
= 040000 14268 
—E = 000 14068 
VERIFY 012076 ess 3890 39928 
0100 437% 
WOENT ~ BOTaae sebos 11076 
001414 Bb55 7620%  7719% 7725 7774 7775 7943% 7945 11068 
DO1416 6568 76e1% 7720% 7846 7895 78396 7944" 7394S 11068 
WLE = 004000 14238 
001446 70 
WRDATA= 3 13758 7486 
= 7 13778 
= 14408 
WRTCHK= 3 13788 7612 
WRTIGAT= 14588 
ci 001000 1565 15718 
SASTAT= #eeeEe LU 9512 527 
SATY 051600 9483 94858 
SATY 051554 94818 
SATY. 051562 360 94828 
SATY4 051572 9312 94844 
SAUT 001134 2e5e4e8 8086* 9710 9867 
SBASE 001264 eS9O4s 3736% 3800 8147% 8149% 
001122 25198 
SBDDAT 9011 ebe18 
LL D012 4Se 8299 9332 9663 9860 
SCOW oe 25968 
$c 00127. 25978 
$C 051324 9377% 9387% 9394 9403* 94088 
$CK OS2eS46 96968 10194 
SCMTAG 001100 25078 362) 3626 3634 3640 3641 3642 
M3 = 000000 2537 





NO3 
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CZR6GB.P11 03-JAN-78 08:46 CROSS REFERENCE TABLE -- USER SYMBOLS 
scm4 = 000006 25378 25388 25398 25408 eS4is eS4¥ee eS438 
CNTLC 3438 aors 9732 98608 
CNTLG 34 971 98628 
Seats Baise a Rae Bawa 
001208 eS478 3868 3932 7429 7430 9307 9332 9376 9411 9753 9840 9860 9921 
11302 §=611307)§=611317 3=611330 0) 11343 
0S1S44 9435 9469 94778 
$0820 054000 99738 10035 
$0B20 053660 7427 99328 
$O0WO 001274 es398s 
001276 5998 
001 6008 
$ 00 130e 26018 
$0 1304 e602 
ie Bite cease 
SODW isis rd 
Spec 416 997 100218 
vc 1220 es539e 3685 3747% 4127 Boe4* 8025 
VM Ase8 es9s# 3856 
8035 8044 s0S0# 
T 1533 34 94738 
SE 155 80468 9327 
a Be 
3H ‘ 
SENV 1230 5 9309 9355S 39490 9514 
SENVM 1231 eSb5e 3 3848 9357 9362 9492 
SEOP Risess 7. 4243 7522 7642 80188 11355 
Seer” ira na 
SERFLG Bai i03 3eiDe gos $219 9248 9250 92eS6* 9278 ges4e 9332 11352 
cree i: Seat een a, 
SERRPC 001116 Ait hy 9301# 9302% 9303 9332 11052 11060 11068 11076 11084 $#$11092@ 11100 11110 
Seamer Se eee 
ast tiene SE ae Sc (Ree MC eT 
* * 
7e0S*® 7296% s802e1% 8414 8418% 8428 8438% s8448e s468e 847ex 9056% 9102  9105* 
9e72ee 9323 9325 9332 
SETABL 001230 25638 
Fa ND te 4ac? 6068 
ATAL lele 568 518% 
ade 2020 9481# 9484" 9512 gS2li*  9529% 
ILLC 1156 S358 9380 9411 
ae 1155 S348 9411 
$G 001120 25188 
SGODAT sh63 2eSe0# 
sero Berke oe 
G 97188 10192 
$HD___ = 000000 1209 
SHIBTS 001000 15728 


S$HIOCT 053656 9909 99208 


a a ee 


BOY 








* 10198 
$SB20 054174 4469 46e8 100338 
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SICNT 001104 25118 9263 9264 9266% 9277 
SiNTAG 001135 25258 9715% 9734 #9754 9867 
SITE 1114 25158 9303% 9311 9332 11293 
SLF 206 25488 9332 9411 9850 9860 93921 
SLFLG i? 522% 95268 
«SL 1106 2Siew 3644% 9085 9254* 9270 9275 9277 
—$ 1110 25138 364S* 8473 8960 8963* 9/11 9254 9271% 9277 9322 
| Srebes : 2 25els 
1252 25888 
SMADRY 1256 25918 
SMAI 1210 1573 1577 2SS4s «6 3662 )~=Cfsi«iwBOSsi«é‘«‘—Ciéi«BS—s«éSSS 
1240 25758 
1244 25838 
| 1250 25868 
SMAMSY 001254 25898 
§MBADR 001002 15738 
GMFLG OS52016 94ue2% 3488 9523% 95278 
| SMNEW 053506 9721 98658 
SMSGAD 001224 25618 9498% 9501 
| SMSGLG 001226 P5628 9503 
SMSGTY 001210 25sSe 9496 9504* 9516 9520% 
| SMSWR 053475 9718 98638 
| SMTYP1 1241 25768 
| $SMTYP2 001245 ue 
SMTYP3 001251 7% 
SMT 001255 25908 
$MUL_ = D1 44658 4467 462 4626 
| SMUL 4270 4464 4623 100778 
SMXCNT 050644 9267 9277 
001154 25338 3 9411 
SNWTST= OOO001 37808 37 3828 39958 3997 4104" 4106 4182 4184 + %§|4w4768 4478 4635s 
46 46798 Seat 47838 4785 #4e7B8e 4880 SObee S064 S237" 5239 S324"e 5326 
S4068 54 56498 5651 58758 S877 #+x6Ole# 6014 614S# 6147 6208" 6210 6265s 
| 6267 63908 6392 65118 6513 65908" 6592 66628 6664 6752" 6754 6835" 6837 
69428 «6 70358 7037 #471708 7172 «&#«©+7299% 7301 74338 7435 #$=%‘76658 7667 
SOCNT oO52244 9567 9596% 96098 
053762 4658 9934 939598 
052246 9S562x 9566% 9571 9574x 9585* 96118 
SOVER 050630 9231 9247. 9255s 926S)s«P7H 8B 
S O0ie216 25588 3662 4377 +4536 44648 7423 #£8031* 8032 8040 8053 9261 9278 
SPASTM 001006 15758 
SPWRCT OS0206 9142% 9143% 91538 
SPWRON OSOl22 3638 91368 93145 
SPWRUP 050134 9136 48©=«- Sl4ee 
SQUES 001204 2s468 9332 9411 9772 9843 9860 93918 9921 
SROCHR 053110 97858 10195 
SRODEC= #2444" U 10198 
SROLIN 053200 98088 10 
T 053520 98828 10197 
$ROSZ = 000022 98018 
SRE gs444o 101438 10199 
Shon Sesche U 1BoB0" 
aa oS4402 10127 


CO4 
GoneGs Pri B3-saN-76asae | Y** “GAGES "RereRENCE TABLE ~~ USER SrnBdcs 


SSCOPE O0S0366 3632 3ee8s 
SSETUP= 000137 38958 3631 363 3o22 3696 638 640 
3832 9319 932 9655 661 91 
SSTUP = 177777 ® 
$S 0S4230 4470 4675S 7428 @8§=©6100508 
seve, Be reat, Hees 
= 
: WR = 929800 tidus 1339 1214 1215 1216 1217 1218 
3641 42 3644 3645S 3791 B42 4011 
4894 06 S249 $331 S431 656 S886 
6S97 6676 6759 6857 6949 7049 7177 
1 | $220 See S222 9223 9224 
Ses 9258 9eS9 9271 9274 277 
304 9316 9320 9332 
SSWREG 001232 eS668 3665 
% 000000 leel leee 9224 Sees 9246 
TESTN 001214 S78 4116# a5g 8 1l 11059 11060 11068 
TI 0011 438 3641% 37918 3842 44Ol1*® 4114 4ele* 
Sey9* 5331% S4Y31% S656*%* S886* 6019%  6158% 
8253" 6857% 6949% 7049% 7177% 7320% #74S50% 
TKB 001146 25308 9615 9636 9647 9672 9700 9727 
StKent pes apAa* 9631% 78% 9792 9794# 
| STKINT 2 96318 96 9713 
| STKQEN= OSeeS7 96208 9686 9797 
STKQIN OSeeSe 96178 9632e% 9633 9684*  9685* 9686 9688* 
ere Besse! 96188 9633* 9795 97396* 9797 9799% 
TK@SR 96198 88 9739 
$TKS 001144 eSese 9615 9637%  9668% 9670 9676% 9693 
STKSRV 330 34 96478 
STMPO 1160 25378 
STMP1 1162 25388 
STMPe 001164 25398 
STMP3 001166 2S408 
STMPY 001170 es41le 3912 3931 394S* 3956% 4025 4040 
6980 7137 6S 7 8190 8SS8 
STMPS 001172 eS4ee 3745 8414" 8468 8472 
STN = 000041 1195 1 3 37’ 37918 3819 3826 
4116 411 4164 41 4182 4el8e 4476 
4783 47918 487! 48948 2 2 38 37 
S4Y318 S646 4 S6568 1 886s 
6208 psiae 6265 788 6390 63988 Sil 
a Ce Me 
STNPWR O5S4110 3288 rx, 100018 
TPB 00115e eS3es 94 11 
STPFLG tet 2S368 add 9411 
STPS 1150 eS318 38 9411 
STRAP OSY476 3636 101638 
STRAPe OS4S20 101748 10185 
STRP = 000016 1017g8 181878 191888 101898 101908 101918 10192 
TRPAD OS4S32 ibiee. ioiess Pree 
/$TSTM 001004 15748 
STSTNM 001102 eS09e 4117% 8029% 9219 9246 92e68* 9269 
STTYIN OS3434 $810 9811 2 9841 98ss 98898 


| 
| 


| 


11076 
4483 
6215 
7691% 


9714 


6 
76918 


101938 


9274 


3642 


11084 
464S# 
6278 
8022 


9724 


10194 


9278 


3644 


11092 
4696* 
6398* 
8030* 


9736* 


4102% 


101958 


9296 


80e9 


11100 
4791 
6525* 
9257 


9756* 


101968 


9332 


SEQ 0248 

8077 9229 
es44 es4s 
4696 4791 

98 65eS 
8030 804S 
9248 9249 
9288 9297 


11110) = 111121 
4894" SO069# 
6597 6676 
9264 92e67% 


4158 6888 
4104 1148 
6793 6968 
5388 406 


101978 101988 
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RR iz 21330 U Beet 1 
eps B21 332 3q3¢ '8488 10178 10166 
_§TYPEC 051260 9379. «9386 «60. :«9393.-S'—«9398e ©«9399—Ss«9758 
| §TYPEX 051326 9404 9406 SHO5s 
46 95658 101 
STYPON 964 95678 10189 
| SUNT? OBISSe Zeros oP 7ugx 4129% 4137 4148 4233 = 4 43 4397 4434s 459 
G3e8 agis* digg* dbz22 esag | t5B9 309 agli} BBE CB 
Sob S 5604 5618 SB 567 S7¥2 5751 5781 6790 82D 5809 53 
694 e951 63 58972 6021 6030 6075 bi 171 
61 28 «Ba 628 £308 6317 6348 6357 6400 64 6428 ©6437 
64 6477 ~«bs29té‘éeésS3@~Cé‘éeS=79:~«é‘«éé~O]«StiéBOsC«é‘i“wSCOCBSC«éGBSC‘éG4is—“(<éiéiO—CC«éG WSL 
6763 6772 67954 680 8 6861 6870 6904 6913. & 69 9 70 
7083 7ii1 #7139 «497181 7190 7239 7267 732 7335 7362 7453 7462 
| ScuyiSE3Cti‘=SGSCi‘=GOC«*=7GS?=—=si“‘zm7OGOC77230~Cté«=?78Lsi«‘??7HOtC«7BEPOsC‘7BS1=SsC7BNSsCSD 
| 7897 7847,—=t«—«79BL 390 S 8279 48306 8373 9375 # #§377 «98379 8506 8520 
| 9529 2B @s47 «8577 s«008Sts«éGY 
| SUNITM 001010 15768 
SUSWR 001234 25678 
SVECT1 001260 5eq28 
VECTe 001862 5e5e 
SXTST O400 §2338 
SSE Ta= SB acBp go458 
SOFILL 052245 9561s 9S6S5* 9575 96108 
SYHOCAT= #22222 LU 9230 9306 
= 067264 is30e is34e 15398 1542 1549 1SSOe 1SS2e 15548 1S55Se 1561 15628 1564s 15668 
Shes «2849 = BE7BR «BB798 «EBON «Bee «0B «BBY «= 329s = 3864S) s«BOS3)—s«B}OS7 
138 S194 S677, Se7e S332 SH Su77e Seaoe Seis = Beige Seed) Shela 98598 
i3678 113688 11817 11746 1i750 i782 11806 11868 


~~ 98678 9921 99598 100218 1 


— 
—- 0-00 
@ 
o 
~ 
wore 
£0 
on 
0 
ae 
_ 
- 
@ 
@o 
N 
b-4 


-SASTA= x#eeEE LU 482 
-$X = Séle 1566 


O04 
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CALIB 16838 4257 9006 


CHECK léees 4ese 4317 4346 4369 4415 4451 4505 4Se8 4S74 4610 4732 4772 4827 4867 
49293 49Se 4981 5004 5030 SOS4 5104 S127 S156 5179 S205 Seeg 5295 5316 $377 
$398 S462 5493 5549 5588 5635 5687 5718 5774 5813 5860 $917 $339 SO 6132 
6200 6257 6341 6382 6461 6502 656S 6637 7101 7128 7229 7256 7379 7514 7$33 
7634 7683 7767 7806 7888 7927 7971 9041 
COMMEN 13418 
CwDe 16378 4289 
DRCLR 16608 4298 4432 4S91 4753 4848 5011 5186 5616 5841 71093 7237 9022 
ENOCOM 13418 
EOPGM 194Se 8019 
ERROR le3S8  38ee2 3887 3909 3918 1 3950 3969 3973 3984 4022 4031 4049 
4076 4080 4084 4088 4226 42 4237 4241 4eSe 4eSS 4264 4270 4273 4286 
4287 4293 4 4 4307 4320 4321 4322 4323 4332 4349 4350 4351 
4352 4358 4372 4373 4374 4375 4388 4394 4400 4404 4418 44 4420 4421 
4427 4438 4441 44S4 4455S 44 4457 449 4495 45 4509 4510 4511 S17 4521 
$3! 45 4S33 4S47 4SS3 459 4S6. 4577 4578 4579 4 4597 0 
46 4614 u5e3 4616 47) 4708 4713 4717 4721 47. 4736 4737 47 4747 
4759 4 4776 4 4778 4781 4812 4816 4 4831 
4832 4833 4B4e » tA 4 4857 487 4671 487 487 4876 4902 4910 4914 
4918 49. 4933 4934 4935 4942 495 cate 4 4 4962 4966 4970 4984 4985S 
eee Ee so i Me Me fe tee OE 
$132 5133 2737 141 146 515 160 61 162 5169 182 2 214 ize 19e 
5195 Sel esit 2 2533 Z 1 5269 77 81 
Sees 238 3 5. 1 1 Jee 339 43 $351 3 363 
Bues 380 “1 eo ease sr ever euSs evan 2ugd S440 S448 ed S465 2788 
5536 Bess Beep 553 Becy Bcee 5 5S71 o7e 578 2ear 2e4p 2243 264 602 
5610 5614 S622 2538 0 5641 47 665 73 5677 S690 rt 
5693 S695 56993 $7: 57’ 721 722 $723 24 731 735 $739 $749 $75 5761 
5764 $777 $779 780 7 5796 5800 Bo? 1 $817 581 $819 27 $835 
583 5847 $863 64 865 5866 5872 =} 5907 3 59e1 St $923 
5 $931 $935 $939 59493 53957 5961 5970 5978 5982 $988 6003 6004 6005 
6010 6028 6040 2 S4 60S6 6058 6064 6068 607 6082 60 6094 
6103 6111 611 6121 613 136 6137 Pi8 pias 6 6170 6178 6186 6 6203 
6204 Pets 6223 27 PSs> 3 624 260 6 B be 6263 6287 6295 6299 
6302 630 631 323 6331 634S 6346 6 6355 6 6367 6371 6385 
6386 6387 288 6407 6415 6419 bd 2 edas 64 sr 6447 6451 6464 6465S 6466 
6467 6475 648. 6487 6491 6 S07 65 5. 6S44 6548 6551 6SS6 
6569 6570 6571 7 65 6 6600 6608 6616 6620 6623 6640 6641 
6642 6643 4 AR pos" 6660 66 4 th 6695 6699 671 6708 6718 6 628 6736 
6744 6750 6762 6770 6778 6782 6785S 6791 6801 680 6813 6819 68S9 
6868 6876 6880 6883 88 ga 531 gah 323 $368 nae 6936 6951 5380 538 
6972 $372 6984 6992 00. Oil 01 020 0e4 028 7060 7068 072 07' 
7082 086 7030 7104 71 7106 7107 7115 7118 7131 7132 7133 7134 7148 7154 
7160 7166 7179 7188 7196 72 7203 7210 7214 7218 7232 7233 os 7235 7243 
7246 7eS9 7260 7261 7262 7276 7282 7288 7294 3e4 7333 7341 7345S 7349 7366 
7370 7382 7383 7384 7385 7388 7395 7397 7409 7460 7468 7472 747’ Laas - 7501 
S 7517 8 7519 7520 7523 7536 7537 7538 7SS1 7589 75 7576 7584 
7588 7614 bee 7625 7637 7638 7639 7640 7656 7657 7658 7689 7695 7 7712 
7716 77 7738 7746 7756 770 7771 7772 7773 7783 77 77396 7809 7810 
7811 78le 7816 78 7829 7837 7841 7849 7860 7868 7874 7877 7891 7892 7893 
7894 304 907 7317 793 7931 7932 7933 7937 7941 79S2 7955 7960 7974 7975S 
7976 7977 7988 79396 8000 8486 3 8495S 8510 8Se4 8533 este 8sso 8576 8978 
8990 8994 8998 901e 9018 9021 9028 9031 9044 3904S 9046 9047 9104 
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ESCAPE 13418 
F.EAB 160e8 4274 4309 4338 4407 44 4497 4602 4723 4764 818 4859 4920 944 
97e 4 S0e<e SO46 so9s S11 5147 5171 $197 Seel 5286 5308 5368 $390 S4S4 
S484 5S41 580 S627 5679 709 5766 80S 58Se 5909 $931 6042 61e4 6192 6249 
333 S373 6453 6493 6S57 6629 7092 7120 7220 7248 7371 7506 7SeS 7626 764S 
7758 738 78793 7319 7962 3 
GETPRI 13418 
GETSWR 13418 80 
HDCHK3 17848 7778 78393 
| HOTBL 7978 
| HEADER # 2044 2128 2154 2190 2211 2257 2e39 2309 2338 2374 e415 2449 
| LOOP iss6e 3902 4015 
37808 37 38268 3828 39958 3997 4104# 4106 41828 4184 46358 4637 46798 4681 48788 
4880 Se378 $239 S4068 5408 58758 S877 61458 6147 62658" 6267 65118 6513 666e8 6664 
68358 6837 70358 $7037 72998 = =7301 74338 87435 76658 7667 
MULT Is4le 4462 46e1 
NEWTST 13418 3780 3826 3995 4104 4182 4476 4635 4679 4783 4878 S062 S237 5324 S406 
ae 5875 le 6145 6208 6265 6290 6511 6590 6662 6752 6835S 694e 7038 7170 
e33 7433 665 
OWNTAG 15798 
POP 13418 9464 9524 9525 9910 10106 10148 
PUSH 13418 9423 9485S 9487 9508 9884 10077 10128 
exe PEK 19598 us? 
QKSEEK 18098 471 4805S 3 4959 S082 5134 S471 S696 7079 7207 7949 
QKSRT 17le8 6926 7018 8987 
RDATA 18778 
| ROHDOR 17S68 7779 
/RELEAS 19798 Sebe S344 S433 517 S556 $98 5658 S742 5781 820 5888 S942 5963 6021 
6075 6096 6171 6228 6280 6308 6348 6400 6428 6468 6Se93 601 680 6711 6763 
6794 6861 6904 6953 6996 7083 7181 7326 74S3 7544 569 7697 7822 7980 
REPORT 13418 
REPTA e0eSs 4785 6 
REPTST 20198 4478 5064 5326 5651 6014 6210 6592 6754 6944 7172 
sc 12368 730 3841 4010 4113 4217 4482 4644 4695 47390 4893‘ S068 5248 5330 S430 
| at tit B08 gio a 6277 6397 6524 6596 6675 6758 ; 6948 7048 7176 
La rare a560 4326 4485S 4698 4793 4896 5071 S251 5333 6160 6217 
ates vite 1913 10188 10189 10190 10192 10194 10195 10196 10197 10198 10199 10200 
Is 
SKIP 13418 3768 3819 4O46 4164 4170 4649 5306 5388 S646 5871 6009 6142 6587 6659 
6749 6832 7406 7424 
SLASH 13418 
SPACE 13418 
STARS 13418 1547 1SS8 1560 1567 e502 2s4g3 esse 3780 3789 3826 3840 3995 4009 4104 
4lle 4182 4216 4476 4481 635 4643 4679 4694 4783 4789 4878 4892 S062 S067 
5237 Se47 S324 $329 O& 429 5649 S6S4 5875 S884 6012 2 6145 6156 6208 
6e13 626S 6276 6390 6396 6511 6Se3 6$90 6595 6662 6674 7Se 6757 6835 68SS 
6942 6947 7035 7047 7170 7175 72939 gals 7433 7448 7665 7689 801le 9216 9280 
9334 9413 9480 37 9614 9691 9706 3 9801 9870 $923 9962 100e4% 10042 £10065 
10112 10157 11281 11290 
STDERL 16498 4944 4996 S046 $119 5171 S221 6557 6629 
STDERE 16548 5308 5390 S4S4 $541 5580 5679 5766 $5805 5909 5990 6042 6123 6192 6249 
SUNIT 20398 7362 23 7776 7844 7897 7947 
SWRSU 13418 36468 
TRMTRP 101788 
| 


SEG 0eSe 


GO4 
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wo o 
on w 
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uo ws 
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0m oe O 
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nwo Oo wW 
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roo Ww 
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